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ZX-Spectrum 
Apple II 
Drogon 32 

MZ70Ö 
PC 1500 



Lieber Computerfreund, 




VLm 



Sie halten jetzt die zweite Ausgabe von 
Computronic in Ihrer Hand. Achtzig Seiten, 
»vollgepackt« mit aktuellen Berichten und tollen 
Spielen, wobei wir wieder die gebräuchlichsten 
Computer-Systeme berücksichtigt haben. 

Sollte Ihr System jedoch im Heft unangesprochen • 
bleiben, dann schauen Sie doch wieder in unsere 
Computronic Ausgabe Nr. 6! 

Da wir immer bemüht sind nur die, nach unserer Meinung, besten Programme in Computronic 
abzudrucken, kann es schon einmal vorkommen, daß Ihr Computersystem bei uns sprichwörtlich »zu 
kurz kommt«. 

Aus der Vielzahl der Leseranrufe die uns zur ersten Ausgabe beglückwünscht haben, konnten wir 
entnehmen, daß unser Konzept richtig ist. Wir wollen gute Programme an unsere Leser weitergeben. 
Programme die Spaß machen, gut zu lesen sind und natürlich fehlerfrei sein müssen. Dieses Konzept 
wird die Redaktion zunächst auch weiterhin verfolgen. Alle in Heft zwei von Computronic 
abgedruckten Programme, müssen bei richtiger Eingabe auch funktionieren. 

Übrigens, Abonnementwünsche können Sie direkt an den Verlag weitergeben. Wir wollten, daß unsere 
Leser Computronic erst einmal kennenlernen, bevor sie per Abonnementkarte unser Heft das ganze 
Jahr erhalten. Ab Heft Nr. 6 können sich unsere Leser dann einer beiliegenden Abonnementkarte 
bedienen. 

Wir jedenfalls hoffen, für jeden unserer Leser, wieder etwas Interessantes zu bringen und wünschen 
Ihnen viel Erfolg beim Programmieren. 



Ihre Redaktion 



In diesem Heft 



Aktuelles 



4 Atari Jugend 

Atari sucht den Kontakt mit den Jugendlichen 
Computer-Fachleuten 

/ Auf frischer Tat ertappt 

Bericht über Computer-Anzapfungen 



News 



6 Color-Computer von Tandy/Radio-Shack 
Super Action Controllers 
Neues von Hitachi 



Tips + Tricks 



9 Für den VC-64 
ZX-81 
und den Dragon 32 



1 1 Unser Forth-Kurs 



Teil 2 



Dragon 32 



54 



57 



Cave-Flight 

Auf dem Alphaplaneten muß gelandet werden- 
Verlieren Sie dabei kein Raumfahrzeug. 

Geosoft 

Ein tolles Programm für die Schule. 
Berechnet werden können: Kreise, Vierecke, 
Vielecke, das Volumen und vieles mehr. 



ZX-81 



62 



65 



Atari 



Go-Ball 

Für ganz flinke Leute. Ein schnelles Spiel mit 
Schläger und Ball. 

Grand-Prix 

Autorennen. Eine Version des immer beliebten, 
reaktionsschnellen Spiels. 



74 Oii-Panic 

Eine Leitung ist defekt. Helfen Sie das kostbare Öl 
aufzufangen. 

76 Tank-Battle 

Eine ganze Division »Tank-Battles« stehen Ihnen 
zur Verfügung. Wehren Sie sich gegen eine 
angreifende Division. 



Service 



ÖU Preisliste, Kleinanzeigen 

O X Cassettenservice, Bestellkarte 
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VC-64 



JLÖ Space-Comets 

Im Meteoritenschwarm gefangen. Ein tolles Spiel 
in Maschinensprache. 

2 1 Erdspalte 

Versuchen Sie so weit wie möglich in die 
Erdspalte einzudringen! 

25 Sprite-Data 

Ein Hilfsprogramm für den VC-64. 



TI99 



27 Karl der Käfer 

Karl sucht sich eine neue Heimat und muß auf 
seinem Weg viele Gefahren bestehen! 

jj Alien-Landing 

Ein tolles, schnelles Spiel für den TI 99 mit 

Ext. Basic. Wehren Sie sich gegen*Ungeheuer aus 

dem All. 



Apple II 



14 Disc-Catalog 

Ein Archiv für Ihre Disketten 

4Ü Music-Maker 

Daß Apple II auch Musik machen kann, wollen 
wir mit diesem Programm beweisen. 

44 Mission Adler 

Ihr Auftrag lautet: 
Vernichtung aller Raketenbasen. 



Sharp MZ 700, PC 1500 



48 Kalender 

Auf Ihrem Sharp können Sie sämtliche Daten, 
wie Urlaub, Geburtstage usw. ablesen. 
Die Weltuhrzeiten inbegriffen. 

52 Lotto 

Ziehen Sie Ihre eigenen Lottozahlen per 
Computer. Wir wünschen 6 Richtige! 



ZX Spectrum 



6*7 Missile-Comment 

Mit Fadenkreuz müssen Sie tödliche Strahlen 
abwehren. 

/ J Korrektur: Inventur 

Hinweis zum Programm aus Heft 4 
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Aktuelles 



Computer- Jugendclub 



Stephen Cohen gibt sich nicht mit »Halbheiten« ab. 

Als Steven, ein löjähriger Jungendlicher aus Denver, für 
den Atari Jugendberater-Club letztes Jahr zum Jugend- 
berater ernannt wurde, wollte er nicht nur passiv herum- 
sitzen und zuhören, er wollte selbst einen echten Einfluß 
ausüben. 

Tatsächlich fand Atari, diese gigantische Computergesell- 
schaft:, mit seiner Hilfe eine Gruppe 20 zielstrebiger, com- 
putergebildeter Jugendliche, die bereit waren, ihre Ideen 
und Ratschläge zu Atari's Produkten anzubieten und da : 
rüber Auskunft zu geben, wie sie als Kunden darüber 
denken. Im Gegenzug erhielten die Club-Mitglieder einen 
Atari 1200 XL Computer, ein Modem und jede Menge 
Atari-Software. 

- Ein Experiment - 

Computergesellschaften wie Apple, Tandy (Radio-Shack) 
und Commodore treffen sich regelmäßig mit Verbraucher- 
gruppen, und erhalten so eine große Anzahl von Kunden- 
kommentaren. Atari aber beschloß, eine neue unterschied- 
liche Herangehensweise auszuprobieren. Man lud eine aus- 
gewählte Gruppe Jugendlicher ein, um von ihnen Rat- 
schläge zu erhalten. 

Die Auswahl der Club-Mitglieder war nicht ganz einfach. 
Atari mußte 20 Jugendliche zwischen dreizehn und acht- 
zehn Jahren aus einer Gruppe von 120 Kandidaten aus- 
wählen. Aber nach welchen Kriterien sollte das geschehen? 

Dreizehn Jugendliche wurden von einer Werbeagentur 
nominiert. Auch Lehrer, von öffentlichen Schulen wurden 
gebeten, an der Auswahl mitzuarbeiten. Voraussetzung war 
jedoch, daß alle Club-Mitglieder über entsprechende Er- 
fahrung und Bildung auf dem Computer-Gebiet verfügen 
sollten. Alle mußten in Basic programmieren können und 
aktive Studenten mit weitreichenden Interessen sein. 





Man erwartete von Ihnen, daß sie neue Produkte genau 
testen, bevor sie auf den Markt gelangen. Notfalls kriti- 
sieren, wo Kritik angebracht war, so daß Mängel rechtzeitig 
behoben werden konnten. 

- Kritik - 

Nach einem Monat, die Auswahl war getroffen, fand das 
erste Treffen des Jugendberater-Clubs in Kalifornien statt. 
Zwölf Jungen und acht Mädchen aus dreizehn Staaten wur- 
den nach Sunnyvale, dem Hauptsitz von Atari geflogen. 

Tatsächlich hatten die Club-Mitglieder eine Unmenge an 
Ratschlägen mitgebracht. Sie beklagten sich beispielsweise 
darüber, daß der Computer »disk drive« die Verbraucher 
nicht vor eigenen Bedienungsfehlern schützen kann. Daß 
der »Keyboard« (Tastatur) im Anschlag zu laut war, daß 
Software, die bereits für den Verkauf bereit stand, immer 
noch Mängel enthielt. 

- Weiteres - 

Atari ist selbstverständlich nicht der einzige Computer- 
Hersteller, der den Benutzern jetzt Gehör schenkt. Auch 
andere, große Computergesellschaften versuchen ebenfalls 
herauszufinden, was Kunden von ihren Produkten erwar- 
ten. Commodore und Tandy (Radio-Shack) beispielsweise 
versorgen ihre Verbrauchergruppen mit Informationen 
über die Produktentwicklung und ermutigen sie, Kommen- 
tare und neue Vorschläge zu geben. 
Außerdem begann Apple damit, Studenten spezielle Anlei- 
tungen zu vermitteln, um ihnen beim Aufbau von eigenen 
Computer-Clubs an Grund- und Oberstufen zu helfen. 

Apple sieht darin eine Möglichkeit, Studenten besser über 
die Computertechnologie unterrichten zu können. Übri- 
gens, ein Grundstein für zahlreiche Karrieremöglichkeiten 
im Computerbereich. 

Für Apple sicherlich ein guter Weg, mit den neuen Genera- 
tionen der Computerbenutzer in Kontakt zu bleiben. 

___^_^^_^____^^«„ = »_ Computronic 





4 Tage (nur Pfingsten) 350- DM 

1 Woche 550- DM 

2 Wochen 980- DM 

3 Wochen 1480 -DM 

Die Preisegelten fürUnterbringungmitVollpension;die 
Kurse und fast alle Freizeitmöglichkeiten sind inklu- 
sive. 

Sondertarife für Gruppen oder Schulklassen auf Anfrage. 
Eltern, die ihre Kinder begleiten wollen, sind dazu herz- 
lich eingeladen - rufen Sie uns einfach an! 




Einsteiger, Fortgeschrittene und „Cracks" werden bei uns 

von qualifizierten Pädagogen bzw. Informatikern betreut, p ast zuw - e / f um a /; es aufzuzählen: 
die es verstehen, individuell auf den Wissensstand jedes p on yreiten,Schwimmbad,Minigolf,Tischtennis, Rie- 
Teilnehmers einzugehen und Informationen spielerisch senspielplatz mit Tarzanschaukel, Westernfort, 
zu vermitteln. Fahrradkarussel, Pferderennen, Kletterturm, Rie- 

senrutsche... alles im Preis enthalten! Darüberhin- 
aus Kegelbahnen, Autoscooter, Modellflugplatz, 
Fernsehräume, und auf dem Wasser Wasserskilift, 
Windsurfen, Wasserfahrräder, Tret- und Ruder- 
boote... 

Nicht zu vergessen das 300 Jahre alte Schloß, das zur 
Besichtigung einlädt, genauso wie mehrere Cafes, 
Restaurants, ein Ferienkino, eine Super-Disco... 

Haben wir etwas vergessen? Ach ja - einkaufen kann 
man auch - sogar sonntags! 

Wir finden: Ein insgesamt überzeugendes Angebot, das 
Die angebotene Palette umfaßt: sicner aucn Computerfans begeistern wird. 

• Einfuhrung in Hardware und -Bedienung 

• Einführungin die Kommunikation mit dem Computer 

• Einführung in die Programmiersprachen 

• Die Programmiersprache BASIC von A-Z 

• BASIC für Fortgeschrittene 

• Perfektionieren von Programmen in BASIC 

• Einführungund Programmieren in Maschinensprache 

Darüberhinaus aber natürlich jede Menge detaillierter 
Information wie zum Beispiel BASIC-Dialekte, oder wie 
man einen,bereits vorhandenen Computer optimal nut- 
zen kann, etc. 

Da der Erfolg der Kurse auch von der Verfügbarkeit der 
Geräte abhängt, garantieren wir jedem Teilnehmer 
ein eigenes Gerät, das er mindestens 3 Stunden täg- 
lich nutzen kann. 

Und-wiegesagt-fürindividuelleBetreuungistgenauso 
gesorgt wie für Raum zur Entfaltung von Kreativität und 
Eigeninitiative - das fördert den wichtigen Erfahrungs- 
austausch. 

Zum Abschluß des Camps erhält jeder Teilnehmer ein 
Abschlußzertifikat, und kann natürlich auch selbst 
erstellte Programme etc. mit nach Hause nehmen. 

Die Camps beginnen jeweils an einem Samstag. Die 
Belegung ist möglich furl Woche, 14 Tage oder3 Wochen 
(Pfingsten nur 4 Tage). 





Gewohnt wird nicht in Hotels, Jugendherbergen oder 
Zeltlagern, sondern in supergemütlichen Ferienhäu- 
sern (4-6 Personen) aus Holz, die in unmittelbarer Nähe 
des Schlosses Dankern und des dazugehörigen Dankern- 
Sees liegen, inmitten eines 1 SO Hektar großen Ferien- 
zentrums. Übrigens können Eltern auch gerne ihre 
Kinder begleiten - Anfrage beim Buchungsbüro genügt. 

Frühstück, Mittag- und Abendessen sind inklusive. 





Wir freuen uns 
schon auf Sie - 
bis bald! 



Ostern '84 

14.4.-21.4. 
71.4.-28.4. 

Sommer '84 

23.6.-30.6. 
30.6.- 7.7. 

7.7.-14.7. 
14.7.-21.7. 
21.7.-28.7. 
28.7.- 4.8. 

4.8.-11.8. 
11.8.-18.8. 
18.8.-25.8. 
25.8.- 1.9. 

19.- 8.9. 



Pfingsten '84 



9.6.-12.6. 




Herbst 84 Ort der Handlung ist das Ferienzentrum Schloß Dan- 



6.10.-13.10. 
13.10.-20.10. 
20.10.-27.10. 
27.10.- 3.11. 



kern, 4472 Haren (Ems). Ein riesiges, landschaftlich 
wunderschön gelegenes Feriengebiet mitten im schönen 
Emsland. Wie man hinkommt, ist am besten der Karte zu 
entnehmen. Die Bahn (BahnhofHaren) ist nur etwa 2 km 
entfernt Weitere Fragen beantworten wir gerne - rufen 
Sie uns bitte an. 

Buchungsbüro Computercamp 
Ferienzentrum Schloß Dankern b 
Ho/ztw/ete 4 D | 

2000 Hamburg 52 f 

Tel.: (040) 82 79 42 3 



News 




Der neue H-1-Computer von Hitachi ist kaum größer als 
ein DIN-A4-Blatt. Besonderen Wert legt Hitachi auf die 
Handlichkeit seines H-1-Computers, der gleich mit einem' 
Tragegriff ausgestattet ist. Technisch kann das Gerät sehr 
gut eingesetzt werden. Eine der Möglichkeiten ist beispiels- 
weise der direkt anschließbare Roboterarm über das be- 
reits eingebaute Parallel-Interface. Außerdem wird, zur 
Verwendung von RAM- und ROM-Karten, eine I/O-Box 
angeboten. Der Preis des H-l -Computers liegt bei etwa 
650- DM. 



Color Computer von Tandy/Radio-Shack 
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Die Neuvorstellungen reißen bei Tandy/Radio-Shack nicht 
ab. So wurde vor kurzem ein neuer Color-Computer 2 vor- 
gestellt. Dieser Heimcomputer arbeitet mit »Standard- 
Color-Basic« (8 Farben). In der Grundversion bietet er 
16 KByte Speicher und kostet 746,— DM. Weitere Mög- 
lichkeiten zur Programmierung, wie PEEK, POKE, USR, 
Variablen mit mehr als zwei Zeichen, TRACE und zu- 
sätzliche Editier-Funktionen, Tabellenspeicherung von 
Datensätzen mit mehr als 256 Zeichen sind durch die Ex- 
tended Version vorhanden. Mit dieser Ausstattung liegt 
sein Preis bei 956,— DM. 
Beide Modelle sind software-kompatibel. 



Computer-Club im WDR 



An jedem ersten Sonntag des Monats strahlt der WDR den 
Computer-Club aus, in dem Computer, Software als auch 
Peripherie vorgestellt werden. Der Kölner Sender beschäf- 
tigt sich außerdem noch intensiv mit Programmen im NOS- 
Standard, die in dieser Sendung veröffentlicht werden. 
Wer im WDR-Computer-Club Mitglied werden möchte, 
kann sich an folgende Adresse wenden: 
WDR Fernsehen, Computer-Club, Postfach, 5000 Köln 100. 



Super Action Controllers 




Für alle Freunde von heißen Action- und Reaktionsspielen 
gibt's jetzt den neuen Super Action Controller von Coleco 
Vision. Mit dieser Präzisionssteuereinheit macht das Spielen 
- und vor allem das Punkteholen - noch mehr Spaß! Der 
Controller ist unter anderem mit vier Action-Buttons, 
einem speziellen Geschwindigkeitsregler und einem Key- 
päd, das aus acht Tasten besteht, ausgerüstet. Der inte- 
grierte Joystick läßt sich in acht Richtungen steuern. Auch 
das Äußere dieses pistolenähnlichen, in edlem Schwarz 
gehaltenen Controllers ist nicht ohne. Er wurde jedoch 
hauptsächlich für Sport- und Actionspiele entwickelt, bei 
denen viel mit den im Griff eingebauten Buttons gearbeitet 
werden muß. Das neue Spielvergnügen wird paarweise, zu- 
sammen mit einer Coleco Cartridge, zum Preis von ca. 
198, — DM (unverbindlich) ausgeliefert. 



Sanyo-Wavy mit einem Lichtgriffel 




Sanyo hat seinen Computer vor allem für Grafik ausgelegt. 
Der Wavy-10, auch als MPC-10 bezeichnet, ist mit einem 
Lichtgriffel ausgestattet, mit dem man direkt auf den Bild- 
schirm zeichnen kann. Grafikprogramme erleichtern die 
Arbeit, indem der Computer auf Befehl bestimmte Ar- 
beiten abnimmt. Außerdem hat das Gerät, das etwa 
800,— DM kostet, eine RS-232C-Schnittstelle, an die man 
ein Modem zur telefonischen Übertragung von Informati- 
onen anschließen kann. Auch der Videorecorder läßt sich 
an den Computer anschließen. 
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NEW! Cotor LOGO Lab. tncludes compre- 
hensive teacher's manuai, overhead trans- 
parencies and 25 Student wafkbooks. The 
Lab may öe used wiifi or wühout a 
Network 2 System. Requires Coior LOGO 
disk (26-2721) or Program Pak (26-2722). 

26-2770 199.00 

NEWS Cotor LÜ6Ö Lab )$orkb«sk, 
26-2771 , 2.00 



►Hacker« 



Auf frischer 



t ertappt 



Der jüngst Milwaukee »414« 
erzählt seine Geschichte 



Paul war gerade nach Milwaukee, von 
einem Ferienausflug zum Yellowstone- 
Nationalpark, zurückgekehrt. Sofort 
telefonierte er mit seinem Computer- 
freund um herauszufinden, was sich 
zwischenzeitlich ereignet hatte. 

»Diesmal ist es uns nun wirklich ge- 
lungen«, sagte Paul's Freund. »Das FBI 
war heute bei mir.« Paul schluckte, 
sagte aber nichts zu seinen Eltern. 
Eine Woche später stand ein Beamter 
an der Tür. 

Der Besuch des FBI kam dennoch 
unerwartet, obwohl Paul ahnte wes- 
halb man ihn aufsuchen könnte. 
Während der ersten Monate '83, 
haben Paul und ein halbes Dutzend 
anderer Jungen aus Milwaukee, ihre 
Home-Computer und Modems be- 
nutzt, um elektronisch »einzubrechen« 



und Zentral-Computer im ganzen 
Land anzuzapfen. 

Viele Jungen im Alter von 16-25 
Jahren, trafen sich als Mitglieder einer 
örtlichen »Forscherpfadflndergruppe« , 
die ein reges Interesse an Computern 
hatten. Sie nannten sich selbst die 
»414«, nach der Postleitzahl von Mil- 
waukee. 

Zu jenem Zeitpunkt, als das FBI sie er- 
folgreich im August '83, aufgrund 
von »Computer-Calls« aufspürte, die 
die »414« bei großen Computern wie 
dem Sloan-Kettering Krebs-Zentrum 
in New York, und der Nuklearwaffen- 
station in Los Alamos (N.M.) vorge- 
nommen hatten, erforschten die Mil- 
waukee-Hackers schon mehr als 60 
Computer-Syteme . 



Die Nachrichten über die Anzapfungen verbreiteten sich schnell über das ganze Land. Die »414» standen im Mittelpunkt 
des nationalen Interesses. Einer von ihnen wurde berühmt, nachdem er auf Magazin-Titelseiten abgebildet und in 
TV-Nachrichtenprogrammen zu sehen war. 

Paul, der jüngste, und vielleicht der eigentliche Kopf der »414«, wie auch seine anderen Freunde, erwartet immer noch ein 
Gerichtsverfahren. Einige sahen die Aktivitäten der »414« als Jungenstreiche an. Paul und seine Freunde meinten jedoch, 
daß sie keinen Schaden verursachten, als sie in den Computern anderer »herumstocherten«. Sie wollten ganz einfach 
herausfinden, wie diese großen Computer arbeiteten. 

Eine ganze Reihe von Sicherheitsspezialisten, betrachteten dieses ganze Ereignis als weitaus schwerwiegender. Die Groß- 
rechner (Zentral-Computer) hätten von unerfahrenen Benutzern ohne weiteres zerstört, wertvolle Daten versehentlich 
gelöscht werden können. Ganze Systeme wären durch die Anweisungen der »414« stillgelegt worden. Viele Leute sorgten 
sich darüber, daß angeblich sichere Informationen längst nicht mehr sicher waren. Tatsächlich, so wiesen Sprecher des 
Sloan-Kettering Krebs-Institutes in New York daraufhin, haben die »414« einen Schaden im Wert von 1500$ angerichtet, 
indem sie zwei der Computer Tagesdaten gelöscht haben! Paul verneint jetzt, daß die »414« absichtlich gelöscht hätten, 
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als sie versucht haben das Anzapfen des Systems zu ver- 
tuschen. Erst später sei ihnen bewußt geworden, daß die 
Daten für die Abrechnung benutzt werden, und daß sie 
eine Methode entwickelt hatten, um ohne eine Spur zu 
hinterlassen in das System eindringen konnten. 

»Aber es war zu spät«, erinnert sich Paul inzwischen. Wir 
konnten nichts mehr tun, um die Daten wieder zu be- 
schaffen. Es war nicht unsere Absicht etwas wichtiges zu 
löschen. Es war ein Fehler! 

Paul's Geschichte: 

Im Alter von elf Jahren kam Paul zum erstenmal mit Com- 
putern in Berührung. »Mein Vater war der Meinung, daß 
die Computer zukunftsweisend sind«, sagte er, »und er 
wollte, daß meine Brüder und ich mehr über sie lernen. 
Also kaufte er mir einen TRS 80 Modell 1, mit dem ich mir 
in kurzer Zeit Basic beibrachte.« Nach 6 Monaten hatte sich 
Paul ein »Chatterbox Baud Modem« zugelegt. Zuerst be- 
nutzte er das Modem, um eine Verbindung zu Nach- 
richtenanzeigen herzustellen. Es dauerte jedoch nicht lange, 
bis er das Modem dazu benutzte, die Computer von einzel- 
nen Firmen, seiner Schule und der Milwaukee Erziehungs- 
behörde anzuzapfen. Wenige Monate später erhielt er einen 
Epsen MX 80 Drucker. Später, stellte er seinen TRS 80 von 
Kassetten- auf Disketten- Antrieb um und erweiterte den 
Memoryteil von 16 k auf 64 k. Bis zu jenem Zeitpunkt als 
das FBI an seiner Tür klopfte, hatte Paul unbemerkt jahre- 
lang andere Computer angezapft. 




»Es war das non-plus-ultra-Spiel«, sagte er. »Es ist tatsäch- 
lich reizvoll in ein Computer-System einzudringen, und zu 
erfahren, wie solch ein Computer-System arbeitet.« 

Er glaubt immer noch, daß das Anzapfen von Computern 
sehr aufregend ist, nachdem das FBI aber damit begonnen 
hatte, auch die anderen »414« aufzuspüren, habe er be- 
schlossen, »es lohnt sich nicht. Es ist gar nicht so lustig, das 
FBI und die Polizei ständig im Hause zu haben und von den 
Eltern angeschrien zu werden. Ich werde es ganz bestimmt 
nicht noch einmal tun.« 

Ebenso wie die Eltern der meisten anderen »414«, hatten 
auch Pauls Eltern sich einen Rechtsanwalt genommen, um 
mit dem FBI zu verhandeln. Seine Eltern nahmen ihm den 
Computer für ungefähr 2 Wochen weg und wiesen ihm 
»Extra-Aufgaben« zu. Paul hat an der Washington High- 
school, einer speziellen Schule für Computerwissenschaften 
in Milwaukee überdurchschnittliche Leistungen gezeigt. Er 
will später zum College gehen um eine Ausbildung in Rich- 
tung Computerwissenschaften zu absolvieren. Als er und 
die »414« Computer anzapften, hatte er-sich niemals aus- 
malen können, daß er möglicherweise seine Zukunft ge- 
fährden könne. 

»Es ist mir niemals in den Sinn gekommen«, sagt er. »Man 
glaubt einfach nicht, daß die Polizei oder das FBI jemals zu 
dir nach Hause kommt. Das wirkt wie ein Schock.« 

Ungefähr 6 Monate bevor das FBI auftauchte, geriet Paul in 
Schwierigkeiten, als er in den Computer der Milwaukee- 
school für Ingenieurwissenschaften eindrang. Er hatte den 
DDP 11 Computer zweimal die Woche seit vier Monaten 
angezapft. Es handelte sich keineswegs um ein harmloses 
Spiel. Als der Systemoperator an der Ing. -Schule entdeckte, 
daß Paul in seinen Computer eingedrungen war, reagierte 
er ärgerlich und versuchte Paul von der Schule verweisen zu 
lassen. Paul drehte durch und revanchierte sich auf seine 
Art. »Ich benutzte den gesamten Speicherplatz der auf dem 
Computer verfügbar war«, sagte er. »Ich füllte ihn mit einer 
gigantischen, von mir erstellten Datei aus, so daß niemand 
weitere Programme eingeben konnte.« 

Dies ereignete sich etliche Male, und jedesmal benötigte die 
Schule zwei oder drei Tage um das System wieder zu 
»bereinigen«. 

Eines Tages kam Paul von der Schule nach Hause und fand 
dort das FBI, die Polizei, als auch den Systemoperator der 
Milwaukee-School vor. Seine »Revanche« an der Schule 
war bekannt geworden. Zwar verzichtete die Schule auf 
eine Anzeige, jedoch wartet Paul heute noch auf Urteile, 
bezüglich anderer »Einbrüche«. 

^_^^^^_^_^__^^^^^^^^_^^^ Computranic 



Tips + Tricks 



für C 64 



Maschinenprogramm ohne Monitor abspeichern. 



Möchte man ein Maschinenprogramm, Grafik oder Sprite 
ab einer bestimmten Adresse abspeichern, so gibt es im 
Basic-Befehlssatz keine Möglichkeiten dazu. Es ist zwar mit 
einem kleinen Basic-Programm möglich, jedoch sehr um- 
ständlich und sehr zeitaufwendig. Mit einem kleinen Trick 
ist es jedoch ganz einfach. Man setzt den Basic-Start (in 
43/44) auf die Startadresse und den Variablen-Start auf die 
Endadresse (in 45/46). 

Die folgenden Zeilen ermöglichen dies: 
AD = Anfangsadresse ED = Endadresse 

POKE 43, AD AND 256 : POKE 44, INT (AD/256) 
POKE 45, ED AND 256 : POKE 46, INT (ED/256) 

Nach diesen »POKE'S«, kann das Maschinenprogramm 
mit einem normalen SA VE auf Disk oder Cassette ge- 
speichert werden. Mit LOAD »name«, 8,1 bzw. LOAD 
»name«, 1,1 wird es wieder geladen. 



STOP Taste ausschalten. 

Will man Programme schützen, so gibt es die Möglichkeit 
mit POKE 788,52 (zu Beginn des Programms) den IRQ- 
Vektor zu verändern. Das Programm läßt sich dann nicht 
mehr mit STOP unterbrechen. Die eingebaute TI$-Uhr 
bleibt in diesem Fall stehen. Durch POKE 788,49 wird 
beides wieder aktiviert. 

Zeichen an beliebige Stelle setzen. 

Leider kennt der C64 keine Zeichen-Positionierbefehle. 
Die folgenden Zeilen helfen diesen Mangel zu beheben. 
HT = Horizontale Position bis 39 
VT = Vertikale Position bis 24 
1.0 BZ = 1024+40 * VT: POKE 209, BZ AND 255: 
POKE 210, BZ/256: POKE 211, HT 20 PRINT 
»ZEICHEN« 

Die Zeilen kann man sehr gut als Unterprogramm ver- 
wenden und somit, an jede beliebige Stelle des Bild- 
schirmes den Cursor setzen. 



ZX-81 



2 


REM 


40 ZEICHEN 


60 


POKE 


16527,127 


70 


POKE 


16531,12? 


80 


POKE 


16535, 124 


90 


FAST 




100 


IMPUT X 


110 


RAND 


X 


120 


RHND 


USR 16514 


900 


REM 


REM-8CHREIBER 


901 


REN 


FRIEDRICH HUNOLD 


902 


REM 


NELKENWEG 19 


903 


REM 


4290 BOCHOLT 


910 


SfiVE 


"REm" 


920 


CLS 




930 


RUN 





NEXT X 



16514 - 42 

16515 - 5Ö 



REM-Schreiber für ZX-81 
Dieses Programm erzeugt in der Rem- 
Zeile genau die Anzahl von Zeichen, die 
von Ihnen eingegeben, wurden. In Zeile 
100 wird die Anzahl der Zeichen ein- 
gegeben. Der ZX-81 schaltet nun in den 
»Fastmodus« um und erzeugt eine von 
Ihnen bestimmte Rem-Zeile. 
Der Rechenvorgang endet mit einer 
Fehlermeldung. Anschließend können 
die Zeilen 60-930 gelöscht werden, und 
das Maschinenprogramm kann einge- 
geben werden. 

Das Programm ist bei der Eingabe von langen Rem-Zeilen recht nützlich. Durch Zeile 10, 20, 25, 30 
braucht an Stelle von z.B.: POKE 16514,42 lediglich die 42 eingegeben zu werden. (Dto. bei 
16515,50-16540,28). Wichtig ist, daß Zeile 10-30 nach der Eingabe gelöscht wird! 



10 
20 
25 

30 



FOR X* 165 14 TO 16540 
INPUT I 
POKE X,I 



16516 - 

1651? - 

16518 - 

16519 - 

16520 - 

16521 - 

16522 - 

16523 - 

16524 - 



64 

229 

33 

156 

64 

62 

28 

205 

38 



16525 
16526 
1 6527 
16528 
16529 
16538 
16531 
16532 
16533 
16534 
16535 
16536 
16537 
1 6538 
16539 
16540 



- 5 

- 42 

- 127 

- 64 

- 35 

- 34 

- 127 

- 64 

- 225 

- 43' 

- 124 

- 181 

- 32 

- 234 
» 201 

- 28 



Dragon 32 



Listschutz 

Beim Dragon 32 kann man den Listschutz recht einfach erreichen, wenn man den Befehl »POKE &l H 120,15« zu Beginn 

des Programms mit eingibt. Hierdurch wird der überwiegende Teil der Befehle gesperrt. 

Um diesen Befehl auf Band mit aufnehmen zu können, müssen die Befehle POKE 27, &. HH 7 F und PÖKE 28, & HHFF 

mit eingegeben werden. Abgespeichert auf Band, wird nun mit C Save »Name«. 

Mit POKE &l H 120,78 wird der Listschutz wieder aufgehoben. 

Ein- bzw. Ausschalten der Breake-Taste 

Das Sperren bzw. wieder Einschalten der Brake-Taste, ist mit folgenden POKE-Befehlen zu erreichen: 

POKE 411, 228; POKE 412,203; POKE 413,4; POKE 414,237; POKE 415,228; POKE 410,236 

Das Programm kann nun, während dem Ablauf, nicht mehr mit der Break-Taste unterbrochen werden. 

Mit POKE 410,57 wird die Funktion der Taste wieder eingeschaltet. 
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Looks Like an IBM" 
Works Like an Apple 1 



To a land where fruit ^/) and flowers ^ .„..,.. 
supreme, comes the awesome power of the 
WHdcat to challenge their supremacy. 

Wildcat is a sieek styled mobile Computer 
designed for your vehicle, boat or aircraft. It 
looks like an IBM PC™ and is fully Software 
compatible with the Apple II™ product line at a 
list price that would put a smile on the face of the 
most frugal Computer buyer. 

But price isn't everything. All those features that 

would cost you hundreds ^HBMH^^B 

ofdollars extra from our jM m 

competitors, come j^^^^^^^^^^H 

Standard with Wildcat I 

Let's compare some | 
of these features: 




"Computer plus one disk dnve 

Warning: This eQuipmenl is exempt Irom compliance with FCC testing 
requirements pursuant lo 47 CFR 15.801 (c) (1) 
Operation of this equipment in a residential area rnay cause interference. 





Apple Ile 


Wildcat 


Detachable keyboard 


No 


STD 


Füll numeric key päd 


Option 


STD 


Füll functions keys 


NO : 


41 


Built in disk Controller 


No 


STD 


Parallel printer port 


No 


STD 


RS 232 serial port 


No 


STD 


Game port 


1 


2 


RGB Video out 


Option 


STD 


Composite video 


STD 


STD 


RF Video for TV 


Option 


STD 


CP/M 


Option 


STD 


Hi Res graphics (6 color) 


STD 


STD 


Low Res graphics (16 color) 


STD 


STD 


64KB memory 


STD 


STD 


Half high disk drives 


No 


STD 


Converters for vehicles, 






boats, and aircraft 


No 


Option 


Aluminum carrying case 


No 


Option 


List price 


$1940* V 


$1099.00* 



For more Information on the all new Wildcat, see 
your local Computer dealer or call or wjite: 

"COMPUTER AND 

PERIPHERAL PRODUCTS 



an 



1530 S. Sinclair 
Anaheim, CA 92806 
(714)978-9820 



IBM is the registered trademark of International Business Machines Corp. 
Apple is the registered trademark of Apple Computer. Inc. 
Apple II ts the trademark ol Apple Computer. Inc. 
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Unser Kurs 



Programmieren in Forth Teil 2 



Arithmetik-Operationen 



F.Brall 

Literatur: 

Zech Ronald: Die Programmiersprache Forth 

Brodie Leo: Starting Forth 

E.Floegel: Forth Handbuch 

Zimmer Tom: Hes Ware 64 Forth Manual 



Die 4 Grundrechenarten sind in FORTH und BASIG durch die gleichen Bezeichnungen gekennzeichnet. 
+ [n1 n2 — > Summe] Addition 

- [n1 n2 — > Differenz] Substraktion 
* [n1 n2 - -> Produkt] Multiplikation 

/ [n1 n2 — > Quotient] Division 

Wie bei allen FORTH-Wörtern, werden auch hier die Operanten auf dem Stack erwartet, und nach der Ausführung durch das 
Ergebnis überschrieben. 

Einige Beispiele verdeutlichen die Arbeitsweise der Befehlswörter : 
1 2 3 (RETURN) OK (empty - -> n1 n2] 

+ (RETURN) OK (h1 n2 - -> Summe] 

(RETURN) 1 5 OK (Summe - -> empty] 

Eine andere Schreibweise : 

123 + .{RETURN) 150K 

43 21 3 + . (RETURN) 256 OK 

1 000 344 + . (RETURN) 1 344 OK . • 

500 1 00 50 + + . (RETURN) 650 OK 

Die Aufgaben 1 4- 4, 1 2 * 3 und 2000 / 50 werden in FORTH wie folgt gelöst: 
144 - . (RETURN) 10OK 
12 3*. (RETURN) 36 OK 
2000 50 / . (RETURN) 40 OK 

Alle oben aufgeführten Wörter, sind INTEGEF+Operationen. Dies bedeutet, daß die Operanten sowie das Ergebnis intern, 1 6 Bit 
belegen. Für die Anwendung ergibt sich somit folgender Zahlenbereich: 

-32768 < > 32767 

Dieser Zahlenbereich darf nicht überschritten werden, da sich sonst das Ergebnis entsprechend verfälscht. Gleitkommazahlen sind 
in FORTH unzulässig. 

Folgende Beispiele zeigen die Grenzen der Integer-Arithmetik : 
100004*. (RETURN) -25536 OK Richtig wäre 1 0000 
327671 +. (RETURN) -32768 OK Richtig wäre 32768 
5 2/. (RETURN) 2 OK - Richtig wäre 2.5 

112/. (RETURN) 5 OK Richtig wäre 5.5 

Einige Basic-Freunde werden sich jetzt fragen : »Was soll ich mit einer Programmiersprache die nicht einmal richtig 5 durch 2 teilen 
kann«? Diese Frage ist sicher nicht ganz unberechtigt, jedoch sollte man bedenken, daß in sehr vielen Spiel-, Grafik-, Steuerungs- 
und Rechenprogrammen eine Integer-Arithmetik völlig ausreicht. Eine Gleitkommazahl können wir durch Wahl einer anderen Einheit 
in eine Integer-Zahi umwandeln. Beispielsweise können wir den Betrag 1 ,25 DM in 1 25 Pf umwandeln. 

In einer der nächsten Folgen werden noch einige 32 Bit Arithmetik-Befehle vorgestellt. Diese erlauben durch geschickte Pro- 
grammierung eine höhere Genauigkeit, als sie in Basic vorhanden ist. 

Die FORTH-Schreibweise verschiedener Rechenaufgaben: 

Aufgabe: 4 + [17* 12] 

17 12*4 + . (RETURN) 208 OK 

Durch das Stack-Konzept werden Klammern überflüssig. 

Aufgabe: [3 + 9] * [4 + 6] 

3 9 + 46+*. (RETURN) 120 OK 

Aufgabe: 45/ 5 * 100 

45 5 / 1 00 * . (RETURN) 900 OK 
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Weitere Arithmetik Befehle sind: 

MOD [u1 u2 ~ -> Rest] 

Dividiere u1 durch u2 und lege Rest suf Stack 
1 1 3 MOD . (RETURN) 2 OK 

8 10 MOD. (RETURN) 8 OK 

/MOD [u1 u2 - -> Rest Quotient] 

Dividiere u1 durch u2 und lege Rest sowie Quotient auf Stack 
1 1 3 /MOD . (RETURN) 3 2 OK 

8 1 /MOD . (RETURN) 8 OK 

*/ [n1 n2n3 - -> n4] 

Errechne den Verhältnis-Faktor n4=n1 #n2/n3. Das Produkt n1 #n2, ist -als Zwischenergebnis 32 Bit lang. Hierdurch ist eine 

höhere Rechengenauigkeit gewährleistet, als durch die Sequenz n1 n2 * n3 / erreichbar wäre. 

Diese Anweisung wird häufig zum Rechnen mit genauen Konstanten verwendet. Folgende Konstanten können durch das Verhältnis 

n2/n3 errechnet werden: 

Konstante Richtiger Wert Verhältnis n2/n3 



PI 


3.1415926 


355/ 113 


Wurzel aus 2 


1.4142135 


19601 / 13860 


Wurzel aus 3 


1 .7320508 


18817/10864 



Einige Anwendungsbeispiele: 

10 355113*/. (RETURN) 31 OK Entspricht 10 * PI 
100 355 113*/. (RETURN) 314 OK Entspricht 1 00 * PI 

Wie aus dem Beispiel zu erkennen ist, wird mit diesem Befehl die größte Genauigkeit, die Integer-Zahlen bieten, erzielt. 

*/MOD [n1 n2 n3 - -> Rest n4] 

Dieser Befehl entspricht dem Vorangehenden, mit der Ausnahme, daß auch der Rest der Division auf den Stack gelegt wird. 

10 355113 */MOD. . (RETURN) 31 47 OK ' 
1 00 355 1 1 3 */MOD . . (RETURN) 31 4 1 8 OK 

ABS [n1 -->u1] 

Dieser Befehl wandelt n1 mit Vorzeichen in die vorzeichenfose Zahl u1 um. In Basic gibt es den gleichen Befehl. 
- 1 23 ABS . (RETURN) 1 23 OK 

-1ABS. (RETURN) 1 OK 

5 ABS. (RETURN) 5 OK 

Häufig benutzte Befehls-Folgen, wurden in FORTH zu einem Befehl zusammengefügt: 

1 + [n1 — > n2] entspricht der Befehlsfolge 1 +■. 

1 - [n1 — > n2] entspricht der Befehlsfoige 1 - 

2 + [n1 - -> n2] entspricht der Befehlsfolge 2 + 
2 - [n1 - -> n2] entspricht der Befehlsfolge 2 - 
2 * [n1 - -> n2] entspricht der Befehlsfolge 2 * 
2/ [n1-->n2]. entspricht der Befehlsfolge 2 / 

Diese Befehls-Kombinationen sind nicht in allen FORTH-Versionen enthalten, können jedoch sehr leicht definiert werden. Das 
Definieren von Befehlen wird Thema des nächsten Teiles werden. 

Stack Manipulation 

Wie wir schon bei einigen Befehlen bemerkt haben, ist es wichtig, daß die Parameter eines Befehls immer in der richtigen Reihenfolge 
auf dem Stack liegen. Bei umfangreichen Befehlsfolgen, muß deshalb oft die Reihenfolge der Operanten geändert werden, um eine 
anschließende Operation zu ermöglichen. Um dies zu erreichen, werden folgende Befehle verwendet: 

[nl- ->n1 n1] 
DUP ist der am häufigsten verwendete Befehl. Man kann ihn sich sehr leicht merken, da DUP für Duplizierung steht. Er hat eine 
einfache, jedoch wichtige Aufgabe. Dieser Befehl dupliziert die oberste Zahl des Stack's. 
10 DUP.. . (RETURN) 10 OK 

12DUP. . (RETURN) 12 12 OK 

1 2 . , „ , , , - . __^_^__^_^^^_^__— _^^^^^^_ Computronic 
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***** 





-DUP [n1-->n1n1] 

Dieser Befehl entspricht dem DUP Befehl, mit der Ausnahme, daß zuvor getestet wird, ob die zu duplizierende Zahl von Null ver- 
schieden ist. Nur wenn dies der Fall ist, erfolgt ihre Duplizierung. 
10 Q -DUP . . (RETURN) 10 OK 

12 -DUP.. (RETURN) 12 12 OK 

DROP [n1 - -> empty] 

ist das einfachste Befehlwort, welches lediglich die oberste Zahl des Stack's löscht. 
1 DROP . (RETURN) 1 OK 

1 2 DROP . (RETURN) Fehlermeldung : Stack leer 

SWAP [n1 n2 -->n2n1] 

Dieser Befehl verändert ganz einfach die Anordnung der beiden obersten Zahlen. Dies ist oft vor Arithmetik-Operationen 

erforderlich. 

1 SWAP . . (RETURN) 1 OK 

33 4 SWAP . . (RETURN) 33 4 OK 

OVER [n1 n2 - -> n1 n2 n1 ] 

Dieser Befehl arbeitet ähnlich wie der DUP Befehl, jedoch wird hier der »Second« [d. h. die vorletzte Eintragung in den Stack] 

kopiert. 

10 OVER . . (RETURN) 10 10 OK 

33 4 OVER . . (RETURN) 33 4 33 OK 

ROT [n1 n2 n3 - -> n2 n3 nl ] 

Hiermit wird die Anordnung der höchsten drei Stackeintragungen in zyklischer Rotation verändert. Dabei landet der älteste Eintrag 

an oberster Stelle. 

1 20 30 ROT . . . (RETURN) 1 30 20 OK 

1 20 30 ROT ROT . . . (RETURN) 20 1 30 OK 

1 20 30 ROT ROT ROT . . . (RETURN) 30 20 1 OK 

Einige erweiterte FORTH-Versionen, wie 64 FORTH oder FORTH 79, besitzen noch einige, zusätzliche Stack-Manipulations Befehle. 
Einen gewissen Standard besitzen folgende Befehle: 

DEPTH [empty - -> nl ] 

Es wird die Anzahl der auf dem Stack liegenden Parameter übergeben. 

1 20 DEPTH . . . (RETURN) 2 20 1 OK 

DEPTH . (RETURN) OK 

PICK [n1-->n2] 

Die »n-te« Zahl wird auf den Stack gelegt. 1 PICK entspricht DUP; 2 PICK entspricht OVER 

1 2 4 34 33 4 PICK (RETURN) 1 2 33 34 4 1 2 OK 

12 3 2 PICK . . . (RETURN) 12 3 12 OK 

ROLL (n - ->] . 

Dieser Befehl rotiert die »n-te« Zahl des Stack's an die oberste Stelle. 2 ROLL entspricht SWAP; 3 ROLL entspricht ROT. 

12 13 14 15 4 ROLL (RETURN) 12 15 14 13 

12 13 14 15 3 ROLL.. .. (RETURN) 13 15 14 12 
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Disk Cätalog 



Disk Catalog ist ein Utility zur Diskettenverwaltung. 

Bei einer größeren Programmsammlung geht einem oft die Übersicht verloren. Abhilfe soll dieses kurze Basic-Programm 
schaffen. Schnell und einfach läßt sich damit eine Aufstellung der vorhandenen Programme machen. Die Programm- 
Listen können alphabetisch auf Drucker oder auf Monitor ausgegeben werden. Da das Programm durch ein Menue 
gesteuert wird, bedarf es keiner weiteren Erläuterung. 

********************************************************************* 



NEXT l:B* = 



+ 



90 VTAB 12S PRIIMT ' 
100 VTAB 14". PRINT 
110 VTAB 16: PRINT 
120 VTAB 18: PRINT 

125 VTAB 20 s PRINT 

126 VTAB 22: PRINT 



D I M N* < 1 00 ) , P* < 1 00 ) , C* (.1 00 ) 

10 HOME : REM DI SC CATALOG 

15 ONERR GOTO 990 

20 FOR I = 1 TD 40! A* - A* + "?/": NEXT I 

30 B* = "&": FOR I = i TO 38: B* = B* + " 

40 HOME S VTAB 3S PRINT A* 

50 FOR I = 4 TO 6: VTAB I: PRINT BS: NEXT I 

60 VTAB 72 PRINT A* 

70 C* = " FUER APPLE ÜÄ VON MARK HEENE . 

&&& DISK CATALOG &&& - ÄQü = ENDE ODER A 

US EINER OPTION INS HAUPTMENUE ZURUECKKEHREN ÄRETURNü = CATALOG ÄAü 
BIS ÄFü = JEWEILIGE OPTION... 
80 VTAB 10: PRINT " ÄAü NEUE PROGRAMME EINGEBEN" 

ABU PROGRAMM LISTE SPEICHERN" 

ÄCü PROGRAMM LISTE REINLADEN" 

ÄDü ALLES AUSDRUCKEN" 

ÄEü SORTIEREN" 

ÄFü EDITIEREN" 

ÄGO SPEICHER LEEREN" 
130 VTAB 5: HTAB 3: PRINT LEFT* (C*,36) 
140 IF PEEK ( - 16384) > 127 THEJM 170 
150 FOR I - 1 TG 60: NEXT I 

160 C* = MID* <C*,2) + LEFT* <C*,1>: GOTO 130 
170 GOSUB 21«: IF C THEN C « 0: GOTO 4« 
180 W = ASC <W*> - 64 
190 IF W < 1 OR W > 7 THEN 130 
200 ON W GOTO 250, 470 ,580 ,700» 800 „890, 980 
210 GET W*: IF W* = "Q" THEN HOME : VTAB 12: HTAB* 18: PRINT "ENDE": VTAB 

22: END 
220 IF W* ~ CHR* <13) THEN HOME : PRINT : PRINT CHR* <4? "CATALOG" : PRINT 

: PRINT "STASTEü": GET W*:C = Xü RETURN 
230 RETURN 
250 HOME . 

260 VTAB 5: PRINT " NEUE PROGRAMME" 
270 N » N + 1 

280 VTAB 8: PRINT N". NAME " 

290 VTAB 10: PRINT "ÄQü « MENUE ÄRETURNü « CATALOG" 
300 VTAB 12: INPUT " > "$N*<N> 
310 IF H*(N) = "Q" THEN N ~ N - 1: GOTO 40 
320 IF N*<N> = "" THEN HOME : PRINT : PRINT CHR* <4> "CATALOG": PRINT 

"STASTEü": GET W*:N = N -- 1: GOTO 250 
460 HOME : GOTO 270 
470 HOME 

480 VTAB 5: PRINT " PROGRAMM LISTE SPEICHERN" 
490 VTAB 7: PRINT "NAME < ÄRETURNü = CATALOG ÄQü - MENUE" 
500 VTAB 9: INPUT " > "SN* 
510 D* = CHR* (4) 
515 PRINT 
520 PRINT D* " OP E N " N* " . D I S K " 
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530 PRINT D* ,, WRITE ,, N*".DISK" 

535 PRINT N 

540 FÜR I = 1 TO N 

550 PRINT N*<I) 

560 NEXT I: PRINT : PRINT D*"CLOSE" 

570 GOTO 40 

580 HOME 

590 VTAB 5: PRINT " PROGRAMMLISTE REINLADEN" 

600 VT AB 72 PRINT "NAME (ÄRETURNü » CATALOG ÄQü - MENUE) " 

610 VTAB 92 INPUT " > "SN* 

620 IF N* = "" THEN FR INT : PRINT OHR* (4) "CATALOG" : PRINT : PRINT "äTA 

STEü" : GET W*S GOTO 580 

625 IF N* = "Q" THEN 40 

630 D* == CHR* (4)! PRINT 

640 PR I NT D* " OPEN " N* " . D I SK " 

650 PRINT D*"READ"N*"*DISK" 

660 INPUT N 

670 FOR I - 1 TO N: INPUT N* < I ) 

680 NEXT I: PRINT 2 PRINT D*"CLOSE" 

690 GOTO 40 

700 HOME 

710 VTAB 5! HTAB 5: PRINT "ALLES AUSDRUCKEN" 

720 VTAB 72 INVERSE : PRINT "M"3S NORMAL S PRINT "DNITQR ODER " ; ; INVERSE 

: print M F";: normal : print "RINTER" 5: normal : print " 

AUSDRUCK " 5 2 INPUT 
F$ 

730 IF F* < > "M" AND F* < > "P" THEN VTAB 72 CALL - 868"= GOTO 720 
740 IF F* = "P" THEN VTAB 92 PRINT "SLOT NR, " 3 2 INPUT SS VTAB 10: PRINT 

"WIEVIEL ZEICHEN/ZEILE "?S INPUT ZS PRINT 2 PRINT CHR* <4>"PR#"S""2 PRINT 
CHR* <9)Z"N" 
750 HOME 

760 FOR I = 1 TO N 
770 PRINT "-"I"~ "N*(I> 

780 NEXT IS PRINT : PRINT CHR* <4) "PR#0" 

790 PRINT : PRINT "DAS IST ALLES. . . ÄTASTEO" : GET W*2 GOTO 40 
800 HOME 

810 VTAB 5: HTAB 5» PRINT "SORTIEREN" 
820 INVERSE 2 VTAB 12: PRINT " SORTIEREN BRAUCHT ZEIT, BITTE WARTEN ": NORMAL 

830 A - 1SZ » N2B - 0:C - 1 

840 FOR I = A TO Z: FOR J - A TO Z 

850 IF N*<I) > N*(J) THEN A = J: GOTO 840 

860 NEXT J 

870 B « B + C:X* = N*(I):N*(I) « N*(B)!N*<B) « X*:A = B + CS IF A < - Z THEN 

840 
880 NEXT IS GOTO 40 
890 HOME 

900 VTAB 55 HTAB 5: PRINT "EDITIEREN". 
910 VTAB 7: INPUT "NAME (ÄRETURNü = LISTE) 2 " 3 N* 
920 IF N* = "" THEN FOR I = 1 TO N: PRINT N* ( I ) : NEXT I s PRINT : PRINT " 

ÄTASTEü" 2 GET W*2 GOTO 890 
930 FOR I - 1 TO N". IF N* < I ) = N* THEN 950 
940 NEXT IS PRINT S PRINT "NICHT GEFUNDEN,,.»": GOTO" 960 
950 VTAB 10: HTAB 52 PRINT N$S S HTAB IS INPUT " > " 3 N* i I ) 
960 INVERSE 2 PRINT 2 PRINT "E";s NORMAL 2 PRINT "DITIEREN ODER "3 2 INVERSE 

S PRINT "M" 3 2 NORMAL 2 PRINT "ENUE"2 GET W*2 IF W* « "M" THEN 40 
970 GOTO 890 

980 FOR I = 1 TO N,N*a> = ""2 NEXT 2N « 02 GOTO 40 
990 VTAB 232 INVERSE S PRINT "DOS FEHLER.!": FOR I « 1 TO 30002 NEXT I: NORMAL 

2 GOTO 40 
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Space Comets 



Die Arbeitsweise des hier abgedruckten Programms ist 
äußerst komplex und außerdem in Maschinensprache ge- 
schrieben (Data-Zeilen). Um das Eintippen für Sie mög- 
lichst einfach zu halten» gibt es für jede Zeile eine Prüf- 
summe. Tritt ein Fehler auf, so gibt die Einleseroutine 
automatisch die richtige und die falsche Prüfsumme der 
fehlerhaften Zeile aus. Die fehlerhafte Zeile wird automa- 
tisch gelistet, um eine Korrektur möglichst einfach zu 
halten. 

Doch nun zum Spiel selbst: 

Nachdem gestartet wurde, bitte erst warten, bis sich das in 
Data-Zeilen befindliche Programm eingelesen hat. Wenn 
das Titelbild erscheint kann das Spiel beginnen: 

Sie steuern ein Raumschiff durch einen Meteoriten- 
schwarm. Jede Kollision mit den Meteoriten ist tödlich, Sie 
können sich jedoch wehren. Durch geschicktes Aus- 
weichen und durch Abgabe von Schüssen werden die 
Meteoriten ungefährlich gemacht. Zum Abschießen der 
gefährlichen Himmelskörper sind jedoch mehrere Treffer 
nötig. 

Auf dem Bildschirm wird unten links Ihre Punktzahl, 
unten rechts der Hiscore angezeigt. In der Mitte können 

*%f* *A* *£# %£•• *!*• *X* *1* *>t** *£* *£* *sL* *J^ *J^ *&* ^^ ^L* *£* *£* *!«* *2«* *!*• *X" 
*^ *Y* *"4^ "T* *T* *T* *Y* "F* "** "T* "T* *T* *T* *T^ **T* *"T* *** *T* *T* *^ *T^ *^ 



Sie die Zeit ablesen, wie lange Sie noch fliegen müssen. 
Immer wenn die Zeit ein Vielfaches von 1000 erreicht (z. B. 
3000, 4000 etc.), erhöht sich der Level und das Spiel wird 
schwieriger. 

Je nachdem wie schnell Sie fliegen, erhalten Sie ständig 
Punkte für die zurückgelegte Strecke. 

Treffen Sie einen Meteoriten so erhalten Sie dafür 2 
Punkte. Zerstören Sie ihn völlig, bekommen Sie 10 Punkte. 
Gesteuert wird das Raumschiff mit dem Joystick in Port 1, 
mit der Tastatur über: 

> 1< = hoch 
>"*~ < C = abwärts 

> 2 <C = vorwärts 
Space = Feuertaste 

Erscheint das Titelbild oder »Game over« auf dem Bild- 
schirm, wartet das Programm bis eine beliebige Taste (oder 
Joystick) gedrückt wird, um das Resultat des vergangenen 
Spiels in Ruhe ablesen zu können. 

Das Spiel erlaubt zahlreiche Varianten. Sehr viel Spaß 
macht es, wenn einmal versucht wird ohne zu schießen 
das Spiel zu meistern. Viel Erfolg! 

**L» «X* *L» *X» «J* *J* *4* *&? *X* *£+ *if *^* *&* *J> *Z+ *X* »A* *X* *A» ^L* *i* ^L* 
*T^ <<^V *^^ **^ *i* *T* *T* *T* *^* *^* *T* *« > *"T % *"T* *** *T* *T* *** *a* **^ **^ *^^ 



10 PRINT^T 
28 PRINT" 
30 PRINT" 
40 PRINT" 
50 PRINT" 
60 PRINT" 
70 PRINT" 
80 PRINT" . 
90 PRINT" 
100 PRINT" 
110 PRINT" 
128 PRINT" 
130 PRINT" 
148 PRINT" 
158 PRINT" 
160 PRINT" 
170 PRINT" 
180 PRINT" 
190 PRINT" 
£00 PRINT" 
210 PRINT" 
220 PRINT" 
230 PRINT"» 
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240 GET fl*:lFfl*= ,,,, THEN240 

250 RR INT "IT 

260 

270 

280 

290 REM *#VflRIflBLE*# 

300 PlN-28672 
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1RDNUNG ! \m n 



GE 



■RSTE DRUECKN 



310 Nfl**"SPRCE COMETS" 

328 : 
338 : 

349 : 

350 REH *#** EINLESEROUTINE **** 
36i3 S=flN:Z*1108 
378 READ X : GOSUB 438 
38© I FX=- 1 THENG0TÜ468 
320 IFX=-10THENGOTO530 
408 POKES,X 

418 S=8 + 1 : P R =P R + X '■ GOT 3 7 9 
420 : 

438 PRINT ,f 3fflWW ZEILE ■ "Z" SPEICHERSTELLE • "S - RETURN 
440 : 
458 : 

468 REABX : I FPR-XTHENPR*© : Z=Z+ 1 8 • G0TG378 
478 RR INT "rOTKKFRUEFSUMME DER ZEILE"Z" : "PR =PRINT 
488 PR I NT " R I CHT I GE PRUEFSUMME : " X : PR I NT ■ PR I NT 
490 PR I NT " L I ST " Z» 1 8 " - " Z " TT ; : P0KE63 1 , 1 3 : POKE 1 33 , 1 
588 END 
518 : 
528 : 

538 PR I NTCHR* ( 1 47 > : PR I NT : PR I NT : PR I NT "ALLES I N i 
540 PR INT" ABSPEICHERN U/hO ?" 
558 GET A*:IFA$="H"THEN590 
568 IFfl*O"J"THEN550 

578 IHPUT"GERflETEflDRESSE a=DRTflSETTE/8=DISIO " 

580 SflVENfl*+ " < C > PM " .■ GE 

590 PRINT"ÄK»EUM START EINE BELIEBIGE 

608 GET fl* : IFA$ 35 ""THEN600 

618 SVSAN 

628 END 

638 : 

648 : 

658 = 

1 180 DRTA163, 8, 141 , 253, 127, 141 , 252, 127, 173, 28, 3, 141 , 248, -1 , 1787 

1118 DATA i 27 , 1 73 , 2 1 , 3 .. 1 4 1 > 233 ,127,32, 1 78 ,119,32,1 45 , 1 1 7 , - 1 , 1 44« 

1 .1 28 DAT A32 ,28,118,169,5,1 33 , 253 , 1 63 , 225 , 1 33 , 252 , 1 69 , R , - 1 - 1 f.Hf, 

1130 HATA141,251, 127, 141,258, 127, 141,247, 127, 141,244, 127, 141, -L 2285 

1148 D AT A245 , 1 27 ,141 , 246 ,127 , 1 4 1 , 243 , 1 27 , 169,63,141 , 249 , 1 27 , - 1 , 21 46 

1 158 DATA 169/ 88, 141 , 241 , 127, 169, 1 , 141 , 254, 127, 169, 11,141, -1 , 1771 

1 1 68 DAT ASS , 288 , 1 4 1 , 32 , 208 , 1 69 , 1 47 , 32 , 2 1 8 , 255 , 32 , 253 , 1 1 2 , - 1 , 1832 

1170 BATA169,33, 160,48, 145,252, 169, 153, 133,254, 169, 112, 133, »1, 1922 

1 1 88 DATA255-, 32 , 237 ,112,1 62 , 23 , 1 68 , 8 , 24 , 32 , 248 , 255 ,169,-1- 1761 

1 1 98 DATA 1 96 , 1 33 , 254 , j. 63 ,112,1 33 , 255 , 32 , 237 ,112,1 62 ,1,1 68 , - 1 , 1 956 

1 288 D AT A8 , 24 , 1 68 , 8 , 32 , 248 , 255 , 1 69 , 64 , 32 ,218, 255 , 232 , - 1 , 1 673 

1218 DATR224,23,288,248,32,29, 117,76,48, 113, 19,38,64,-1, 1215 

1 228 B AT A9 1,91,91,91 , 83 , 88 , 65 , 67 , 63 ,91,91 , 6? ,79,-1, 1 856 

1 238 DAT A77 , 63 , 84 ,83,91,91 , 66 , 89 ,91,91, 88 ,69,84 J. , 1 865 

1 248 DATA69 , 82 ,91,31, 77 , 63 , 78 , 75 , 69 , 9 i , 9 1 , 9 X ,91, - 1 , 1 866 

1 258 DATA 191, 64 , 9 1 , 9 1 , 83 , 67 , 79 , 82 , 69 , 58 , 91', 48 , 48 , -- 1 , 1 862 

1 268 DATR48 ,48,91,31,84 , 73 , 77 , 69 , 58 , 9 1 , 48 , 43 , 48 , - 1 , 874 

1 278 D AT A48 ,91,91,72,73,71, 72 , 58 ,91,29, 29 , 29 , 29 , ■•- 1 , 783 

1 288 DAT A3 1,91,191,1 68 ,8,1 77 , 254 , 28 1 , 1 3 1 , 248 , 7 , 288 , 32 , - 1 , 1 835 

1238 DATA218, 255, 76, 239, 1 12, 36, 169, 216, 133, 255, 169, 39, 133, -i , 2182 

1 388 D AT A254 , 1 62 , 22 , 1 38 , 74 , 1 76 , 3 , 1 69 , 8 , 44 ,169,1 2 ,168, •- 1 , 1 39 1 

1318 D AT A48 , 1 45 .. 254 ,136, 208 ,251,24,165, 254 , 1 85 , 48 , 1 33 , 254 , ••- 1 , 2883 

1 328 DATA 1 65 , 255 , 1 85 ,8,1 33 , 255 , 282 , 288 , 224 , 36 , 32 , 53 , 1 1 7 , ■- 1 , 1 845 
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1338 
1346 

1356 
1368 

1370 
1388 
1390 

1 4Ö@ 

1418 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1430 

1500 

1510 

1520 
1530 
1540 
1550 
1560 
1578 
1580 
1590 

1600 

1610 
1 628 
1630 
1648 
1658 
1 66Ö 
1670 
1680 
1698 
1708 
1718 
1728 
1738 
1740 
175Ö 
1760 
1778 
1780 

1798 
1880 
1818 
1820 
1838 
1848 
1850 
1868 
1870 

1838 
1388 



DRTR32 , 244 ..117.-1 73 . 244 , 1 27 . 248 . 8 . 286 , 244 , 1 27 , 288 , 6 .- - 1 . X 97S 
DRTR76. 156.- 117.. 32.. 15. 116.32,74, 113,32,48, 115.32.-1. 358 
IIRTR236 ,114.- 76 . 46 . 1 1 3 . 1 63 , 4 , 1 33 , 255 , 1 63 , 33 , 1 33 , 254 , - 1 . 1 74 1 
DRTR 1 68 . 1 , 1 77 . 254 , 28 1 , 28 , 248 , 26 .- 28 1 .- 29 .. 248 , 22 , 28 1 , - 1 , 1 788 
BRTR30 , 248 ,18,281,31, 248 , 1 4 , 28 1 , 27 , 248 .■ 39 . 24 .. 238 , - 1 , 1 535 . 
DRTR254 .. 288 , 227 , 238 , 255 , 76 ,82,113,136,141, 255 .-127.-1 77 , - 1 , 228 1 
DRTR254 , 248 .12.-281,33 , 288 ,3,76.-1 35 ,114,1 73 , 255 , 1 27 , - 1 , 1 83 1 
DRTR 1 45 . 254 . 1 68 , 1 . 1 69 , 32 . 1 45 . 254 . 76 . 1 86 , 1 1 3 . i 69 . 4 . ■- 1 , 1628 
DRTR 1 33 , 255 , 1 69 , 78 ,133, 254 .- 1 68 , 8 , 1 77 , 254 , 28 1 , 32 , 288 , - 1 , 2854 
DRTR28 .- 1 73 ,18, 288 , 45 , 243 , 1 2 7 , 288 ,12,168,1,1 77 , 254 , - 1 , 1 652 
DRTR2Ö 1.33. 248 , 5 1 , 1 63 , 28 , 1 45 , 254 , 24 , 1 65 . 254 , 1 85 , 48 , •■- 1 , 1 783 
DRTR 1 33 , 254 , 1 65 , 255 ,185,8, 1 33 , 255 ,168,1,1 77 , 254 , 28 1,-1 , 2833 
DRTR27. 248, 3. 76, 153. 1 13, 24, 248, 173. 251 , 127, 185, 1 , -1 , 1541 
DRTR 1 4 1 , 25 1 , 1 27 , 1 73 , 258 , 1 27 , 1 85 , 8 , i 4 1 , 258 , 1 27 , 2 1 6 , 32 , - 1 , 1 948 
DRTR 1 34 , 1 1 5 , 36 , 76 . 1 95 , 1 1 4 , 1 73 , 1 , 228 , 1 70 , 1 73 , 247 , 1 27 , - 1 . 1 30 1 
DRTR141 , 248, 127. 138. 141 . 247. 127. 41 , 1 . 248. 21 . 138, 41 , -1 , 1651 
DRTR2. 248. 19. 133. 41 . 4, 240. 23. 138. 41 . 8. 240. 31 . -1 , 1 165 
DRTR 1 38 , 4 1 , 1 6 , 248 , 55 , 96 , 1 68 , 8,44,160,80,32,109,-1," 11 7 1 
DRTR! 14, 32. 151 , 114, 36. 286, 254, 127, 288, 3, 233, 254, 127,-1 , 1924 
DRTR168. 39. 76, 52.« 1 14, 168, 41 , 174, 254, 127, 224, 15, 248, -1 , 1676 
DRTR4, 232, 142, 254, 127. 32, 189, 1 14, 173, 254, 127, 141 , 1 , -1 . 1718 
DRTR2 12,141,15.212.32.151,114. 36 , 1 73 , 247 . 1 27 , 285 , 248 , - 1 , 1 373 
DRTR127, 248, 32, 168. 41 . 177, 252, 281 , 32, 288, 24, 169, 34, -1 , 1637 
DRTR 145, 252 ,163,243,141,13,212,1 63 , 288 ,141,3,2 1 2 , 1 63 , - 1 , 2874 
DRTR123, 141, 11,212, 163, 128, 141 , 1 1 , 21 2,36, 148,255, 127,-1, 1772 
DRTR 1 e'? . 252 . 28 1 . 28 . 248 , 30 ,281, 23 . 248 . 26 . 28 1,38, 248 . - 1 . 1 835 
DRTR22 .201.31. 248 .18.281,32.248.3 , 1 04 , i 84 , 36 , 169,-1 , 1 46 1 
DRTR33 , 1 45 , 252 ,168, 48 , 1 69 , 32 , 1 45 , 252 , 36 , 76 , 1 95 ,114.-1, 1 703 
DRTR56 . 1 73 . 255 . 1 27 , 233 .48.144,12.-24,181, 252 , 1 33 , 252 , - 1 , 1382 



127.-1. 1833 
165,253,-1, 2418 
44,-1, 1311 



DRTR 1 65 , 253 , 1 85 , 8 . 1 33 , 253 . 96 . 1 69 . 48 , 56 . 237 . 255 . 
DRTR 1 4 1 , 255 , 1 27 , 56 ,165,252,2 37 , 255 ,127,1 33 , 252 , 
DRTR233 ,8,133, 253 ,36,169,1,141, 245 . 1 27 , 36,173 , 2 
DRTR127, 288, 3. 32. 39. 1 16. 173, 246. i27, 208, 14, 169. 1 . -1 - 1463 
DRTR 141, 246 , 1 27 , 32 , 23 1,113, 32 ,56,115 , 76 , 49 , 234 , 1 69 . - 1 , 1 62 1 
DRTR8 ,141,246.127, 76 . 49 , 234 , 1 73 . 245 . 1 27 , 288 . 1 , 36 , •- 1 . 1 723 
DRTR32 . 64 , 1 1 7 , 1 €>9 . 5 , 32 , 218, 255 , 1 62 , 1 1 , 1 68 ,14,24,-1, 1 255 
DRTR32, 248, 255, 169, 28, 133, 254, 169, 1 15, 133, 255, 32, 77, -■■! , 1392 
DRTR 1 1 7 , 32 , 2 1 7 ,116.169. , 1 33 , 1 98 , 32 , 228 .• 255 , 248 , 25 1 , - 1 , 1 988 
DRTR76 , 23 , 1 1 2 , 1 8 , 7 1 , 65 , 77 , 63 , 23 , 79 , 36 ,63,32,-1, 862 
DRTR 1 46 ,191,1 73 , 254 , 1 27 ,18, 73 ,31, 1 78 , 1 68 . 5 . 1 36 . 288 . - 1 , 1 684 
DRTR253 , 282 . 288 , 258 ,96.1 63 , 4 , 1 33 , 251,1 69 , 48 , 1 33 , 258 , - 1 , 21 53 
DRTR 1 68 .8.1 77 . 258 , 28 1 , 34 , 248 , 1 5 , 28 1 , 27 , 288 , 1 , 96 , - 1 , 16 1 
DRTR24 , 238 , 258 , 288 , 248 , 238 ,251 , 76 , 66 , 1 1 5 , 1 69 , 32 , 1 45 , - 1 , 2836 
DRTR258 . 288 . 1 77 , 258 .- 288 ,5,1 68 , 8 , 76 , 77 ,115,281, 34 , ■- 1 , 1 753 
DRTR288 ,5,1 68 , 8 , 76 , 77 ,115,281, 32 , 288 , 7 . 1 63 . 34 , - 1 , 1 292 
DRTR 1 45 , 258 , 76 , 77 .115.1 77 . 258 . 1 70 . 232 . 1 38 , 1 45 . 258 ,281 , - 1 , 2226 
DRTR32 . 288 , 38 . 24 . 248 . 1 73 . 25 1 , 1 27 . 1 85 . 3.141. 25 1 , 1 27 . - 1 . 1 733 
DRTR 1 73 . 258 . 1 27 , 1 85 ,8,141. 258 . 1 27 , 1 63 , 248 . 1 4 1 .13.21 2 . - L . 1 956 
DRTR 163.11.141.8.212.1 69 , 33 , 1 4 1,11,212,1 69 , 32 , 1 4 1 , - 1 , 1 449 
DRTR 11,212 .- 24 , 248 . 1 73 . 25 1 , 1 27 , 1 85 ,2,141,251.1 27 , 1 73 ' - 1 , 1 845 
DRTR258 , 1 27 , 1 85 , 8 , 141, 258 , 1 2 7 , 2 1 6 , 1 68 , 8 , 7€ , 77 , 1 1 5 . - 1 , 1 644 
DRTR 1 73 . 25 1 . 1 27 ,141, 255 , 1 27 , 1 73 , 258 , 1 27 , 1 4 1 , 242 , 1 27 . 1 62 , - 1 , 2236 
DRTR23 , 1 68 , 1 8 , 24 , 32 , 248 , 255 , 32 , 2 1 8 ,115, 96 , 1 63 , 1 3 , - 1 , 1 393 
DRTR32 .218. 255 . 24 . 32 . 248 . 255 . 1 73 .- 242 . 1 27 , 74 . 74 . 74 . - 1 . 1812 
DRTR74 . 32 . 8 .116.1 73 , 242 , 1 27 . 4 1 , 1 5 . 32 .8.116,1 73 . - 1 . 1 1 57 
DRTH255. 127.74,74,74,74,32,8, 116, 173,255. 127,41.-1. 1430 
DRTR 1 5 , 32 ,8,11 6 , 96 , 24,1 85 , 48 , 32 , 2 1 8 - 255 , 96 , 1 7:3 . - 1 . 1 2 1 8 
DRTR243 . 1 27 .141. 255 . 1 2? , 1 73 , 24.1 , 1 27 .- 1 4 1 , 242 , 1 27 , 1 62 , 23 , - 1 , 2 1 23 
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1319 BRTR160,22, 24, 32,240,255, 32,218, 115,96,248,56, 173,-1, 1671 
1 328 BRTR243 ,127, 233 ,1,141, 243 , 1 27 , 248 ,16,173,241,1 27 , 233 , - 1 , 21 39 
133Ö BRTR8, 141 , 241 , 127, 216, 36, 173, 241 , 127, 288, 58, 184, 184, -1 , 1836 
1 348 BRTR 1 84 , 88 ,216 , 1 63 ,9,141 , 243 , 1 27 , 1 4 1 , 24 1 , 1 27 , 32 ,15,-1, 1 644 
1 350 BRTR 116,169,38,141, 244 , 1 27 , 1 63 ,4,1 33 , 255 , 1 63 , 78 ,133,-1, 1 776 
1 960 DRTR254 , 1 62 ,22,1 63 ,8,1 68 , 1 45 , 254 , 2fö0 , 1 45 , 254 , 24 , 165, - 1 , 1 36^ 
197Ö DRTR254, 105,40, 133,254, 165,255, 185,0, 133,255,202,208,-1, 2103 
1 980 BRTR232 , 76 , 40 ,113,41,15 , 208 ,179,104,104,1 04 ,216,32,-1, 1 464 
1 S$Q BRTR64 , 1 1 7 , 88 , 78 , 243 , 1 27 , 1 63 , 1 73 , 1 33 , 254 , 1 69 ,116,1 33 , - 1 , 1 870 
2000 BRTR255 , 32 , 77 , 1 1 7 , 1 69 , , 1 33 , 1 98 , 32 , 228 , 255 , 240 , 25 1 , - 1 , 1 387 
201Ö DRTR 163,153,1 33 , 254 , 1 69 , 1 12,1 33 , 255 , 32 , 237 ,112, 76 , 40 , - 1 , 1 875 
2820 DRTfll 13, 13 , 64, 91 , 31" , 31,91, 91,91,91 ,91 , 91 ,91 , -1 , 1 186 
2038 BRTR3 1,91,91,91 , 5 , 78 , 69 , 38 , 84 , 9 1 , 76 , 69 , 86 , - 1 .- 10 1 
2040 DRTR63 , 76 , 30 ,91,91,91, 3 1 , 3 1 , 9 1 , 9 1,91,3 1 ,91, - 1 , 1 035 
2058 BRTR9 1,91,31,91,91,191,1 73 , 252 , 1 27 , 205 , 250 , 1 27 , 1 44 , - 1 , 1 924 
2060 BRTR 1 1 , 208 ,8,1 73 , 253 , 1 27 , 205 , 25 1 , 1 27 , 1 44 , 1 , 36 , 1 73 , - 1 , 1 777 
207Ö BRTR25 1 , 127 ,141, 253 , 1 27 , 1 73 , 250 , 1 27 , 1 4 i , 252 , 1 27 , 32 , 29 , - 1 , 2030 
2080 BRTR 1 1 7 ,162,1 3 , 1 60 ,14, 24 , 32 , 240 , 255 , 1 69 ,15,1 33 * 254 , - 1 , 1 583 
2098 BRTR 163,11 7 , 1 33 , 255 , 32 , 77 , 1 1 7 , 96 , 1 8 , 78 , 63 , 87 , 29 , - 1 , 1 277 
2 1 08 BRTR72 , 73 , 83 , 67 , 73 , 82 , 63 ,146,191,1 73 , 253 , 1 27 , 1 4 1 , - 1 , 1 556 
2118 BRTR255 , 1 27 , 1 73 , 252 , 1 27 , 141, 242 ,127,162,23,1 60 , 34 , 24 , - 1 , 1 847 
2 1 28 BRTR32 , 248 , 255 , 32 ,218,1 1 5 , 96 , 1 63 , 1 1 4 , 1 4 1 , 2 1 , 3 , 1 69 , - 1 , 1 685 
2 1 38 BRTR20 1,141, 28 , 3 , 96 , 1 73 , 248 , 1 27 ,141 , 28 ,3,1 73 , 239 , - 1 , 1 577 
2 1 40 DRTR 1 27' ,141,21,3:, 36 , 32 , 1 45 , 1 1 7 ,169,5,141, 24 , 2 1 2 , - 1 , 1 233 
2 1 58 DRTR 1 63 , 24 1 , 1 4 1 , 6 ,212 , 1 66 , 8 , 1 77 , 254 , 28 i ,191 , 248 , 43 , - 1 , 2835' 
2168 BRTR288, 32, 210, 255, 141 ,1 , 212, 163, 17, 141 , 4, 212, 162, -1 , 1756 
2 1 78 DRTR8 , 152,1 60 , 98 , 282 , 283 , 253 , 1 36 , 208 , 258 , 1 68 , 1 63 , 1 6 , --■ 1 , 28 1 2 
2 1 88 BRTR 141,4,212,162,8, 202 , 234 , 234 , 234 , 234 , 234 , 234 , 288 , - 1 , 2333 
2 1 98 DRTR247 , 76 ,92,11 7 , 32 , 1 45 , 1 1 7 , 36 , 1 68 , 24 , 1 63 , 8 , 1 53 , - 1 , 1 423 
2208 BRTR8 ,212,1 36 , 1 6 , 258 , 36 , 32 , 64 , 1 1 7 , 1 63 , 287 , 1 33 , 254 , - 1 , 1 686 
2218 BRTR 1 63 , 1 1 7 , 1 33 , 255 , 1 62 , 3 , 1 68 , 1 4 , 24 , 32 , 248 , 255 , 32 , - 1 , 1 682 
2228 DRTR77 , 1 1 7 , 24 , 248 , 1 73 , 250 , 1 27 , 1 85 , 5 , 1 4 1 , 258 , 1 27 , 2 1 6 , - 1 , 1868 
2238 BRT R32 , 1 34 , 1 1 5 , 32 , 2 1 7 , 1 1 6 , 1 63 ,0,1 33 , 1 98 , 32 , 228 , 255 , - 1 , 1 72 1 
2248 BRTR248, 251,76,23, 112,5, 18, 84, 72, 69, 29-. 69,73, •-•!, 1126 
2258 BRTR68 , 1 7 , 1 7 , 1 57 , 1 57 , 1 57 , 1 57 , 1 57 , 1 57 , 1. 57 , 66 , 79 , 78 , - 1 , 1 424 

2278 BRTR69 , 1 46 , 191,1 62 , 255 , 232 , 1 89 , 2 , 1 1 3 , 1 57 , , 2 1 2 , 20 1 , - 1 , 1 334 
2288 BRTR255 , 288 , 245 , 96 , 9 , 2,0, 3 , 129,8, 128 , 8 , 8 , - 1 , 1 86? 
2238 BRT R8 , 8 ,0,8,8, 16,2,8, 6 , 1 29 , 8 , 32 , 8 , •- 1 , 1 85 

2388 BRTR38 , 24 1,31, 255 , 1 69 ,11,141, 33 , 288 ,141, 32 , 288 , 1 69 , - 1 , l 669 
2318 BRTR 147, 32 , 2 i 8 , 255 , 1 69 , 3 , 1 4 1,21, 283 , 1 4 1 , 23 , 283 , :!. 4 1 , - 1 , 1 699 
2328 BRTR29 , 283 , 1 69 , 7 , 1 4 1 , 39 , 288 ,141 , 48 , 288 , 1 69 , 1 3 ,141,-1, 151 3 
2338 BRTR248 , 7 , 1 69 , 14,141 , 249 , 7 , 1 62 , 8 , i 89 , 1 56 , 1 1 3 , 1 57 , ■-- 1 , 1 6 1 7 
2348 BRTR64 , 3 , 232 , 28 i , 1 78 , 288 , 245 , 1 69 , 1 38 ,141,8 , 288 , 1 69 , - 1 , 1 940 
2358 BRTR 1 75 ,141,2, 288 , 162,8,1 42 , 1 , 288 , 282 , 1 42 , 3 , 283 , - 1 , 1 594 
2368 BRTR 1 63 , 248 , 1 4 1,6,212,141,1 3 , 212, 1 63 ,15,1 4 1 , 24 ,212 , - 1 , 1 695 
2378 BRTR163, 33, 141 , 4, 212, 141 , 1 1 ,212, 32, 23, 1 19, 174,.!', -1 , 1277 
2388 BRTR208 , 282 , 1 42 , 1 .- 288 , 1 42 , 8 , 2 1 2 , 1 74 , 3 , 288 , 232 , 1 42 , - 1 , 1 882 
2398 BRTR3 , 288 , 1 42 , 1 , 2 1 2 , 224 , 1 28 , 288 , 229 , 32 , 23 , 1 1 3 , ?6 , ~ 1 , 1 6 i 8 
2488 BRTR39 , 1 1 3 , 8 , 8 , 8 , 8 , 1 27 , 224 , 1 , 255 , 248 , 3 , 255 , - 1 , 1 268 
24 1 8 BRTR248 , 7 , 286 , 1 26 , 7 , 1 -42 , 56 , 7 , 1 42 , 56 , 7 , 286 , 56 , - 1 , 1 268 
2428 BRTR3, 142, 128, 1,31,248,8,63,248,8, 127, 224, 8, -l , 1139 
2438 DRTR248 , 8 , 1 , 248 , 8 , 3 , 224 , 8 ,7,1 92 , , 3 , 1 28 , - 1 , 1 846 
2448 ÜRTR8 , 8 , 8 , 8 , 8 , 8 .- 8 , 8 , 8 , 8 , 8 , 8 , 8 , -• 1 , 8 
2458 BRTR8 , 1 , 248 , 38 , 3 , 248 , 63 , 3 , 252 , 1 27 , 3 , 228 , 1 1 3 , - 1,1 383 

2478 BRTR2067231 , 33*266.. 231 , 115, 139, 139, 243, 199, 139, 123, 195, --1 , 2331 
2488 BRTR 1 35 , 63,1 32 , 7 , 3 1 , 1 23 , 7 , 1 5 , 8 , 7 , 8 , 8 , 8 .- - 1 .- 5 85 
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2438 BRTR 8 .- 8 .. 9 .. @ .« 8 .. 8 , 8 .. 8 , 8 , 8 , 8 .• 8 .■ 1 78 , - 1 , 1 78 

2588 BRTR 1 62 .. 28 , 1 68 , 8 .. 1 36 , 288 , 233 , 282 .. 288 , 258 , 96 , 1 62 , 1 5 , - 1 .■ 1 872 

2518 DB TR 1 68 , 3 , 24 , 32 , £48 , 255 , 1 69 , 73 , i 33 , 254 .169,119,133.-1, 1778 

2528 BRTR253, 32, 77, 117, 169, 8, 133, 198, 32, 228, 255, 248, 251 . ~1 . 1987 

2538 BRTR 1 69 , 8 , 1 4 1 ,21.. 288 .96,5, 1 8 , 86 , 73 , 68,69, 79 , - 1 , 1 833 

2548 DRTR29 ,71, 65 , 77 , 69 , 83 , 29 , 88 , 82 , 63 , 83 , 69 , 78 , - 1 , 884 

2558 DRTR84 , 83 , 23 , 58 , i 46 , 13,13, 29 , 23 , 23 , 29 , 23 , 29 , » 1 , 688 

2568 ÜRTR29 , 23 , 23 , 29 , 29 , 29 , 29 , 23 , 1 8 , 83 , 88 , 65 , 67 , ™ 1 , 545 

2578 BRTR63 , 29 . S7 , 79 , 77 , 63 , 84 , 83 , 1 46 , 1 3 , 1 3 , 32 , 32 , ™ 1 , 793 

2588 BRTR32 , 32,18, 67 , 79 , 88 , 89 , 82 , 73 , 7 1 , 72 , 84 , 29 , - 1 , 888 

2598 BRTR5 8 , 47 ,51,46, 49 ,57,56,52, 29 , 66 , 89 , 29 , 88 , - 1 , 7 8 1 

2688 DRTR63, 34, 63, 82, 29, 77, 69, 78, 75, 69, 146, 131, 173,-1, 1211 

26 1 8 BRTR24 ,288,41, 248 , 24 , 1 05 ,14,141, 24 , 288 , 1 62 , 8 , 1 89 , - 1 , 1 388 

2628 DRTR236 , 1 1 3 , 1 57 , 8 , 68 , 73 , 255 , 1 57 , 8 , 56 , 232 , 224 , 8 , •- 1 , 1 563 

2638 DRTR288 , 248 , 1 62 ,8,183,6,121, 1 57 ,112,61, 73 , 255 , 1 37 , - 1 , 1 74 1 

2648 BRTR 112.- 57 . 232 , 224 , 1 84 .. 288 - 248 ,162, 8 , 1 89 . 238 ,128,1 57 , - 1 , 2843 

2658 DRTR8 , 57 , 73 ,255,1 57 ,8,61, 232 , 224 , 24 , 288 , 248 , 36 , - 1 , 1 627 

2668 BRTR255, 255, 253, 255, 253, 255, 255, 235, 8, 126, 66: 66: 126, -1 , 2424 

2678 BRTR66 , 66 ,8,8,1 24 , 66 . 1 24 , 66 , 66 , 1 24 , 8 , 8 , 1 26 , •-- 1 , 828 

2688 BRTR64 , 64 , 64 , 64 , i 26 , 8,8, 1 24 , 66 , 66 , 66 , 66 , 1 24 , - 1 , '894 

2698 BRTR8 , 8,126,64,1 ü4 , 64 , 64 , 1 26 ,8,8,126,64,1 24 , -- 1 , 8 82 

2788 BRTR64 , 64 , 64 , 8 ,8,1 26 , 64 , 64 , 78 , 66 ,126, 8 , 8 , •- 1 , 7 1 6 

2718 BRTR66 , 66 , 1 26 . 66 , 66 :66 s 8 , 8 > 2 4 , 24 , 24 , 24 , 24 , - 1 , 576 

2728 DRTR24 ,8,8,2,2,2,2, 66 , 68 , 8 , 8 , 66 , 68 , - 1 , 292 

2738 BRTR 72 ,88,188,66,8,8,64,64,64, 64 , 64 ,126,8 , - 1 , 7 72 

2748 BRTR8 ,126, 82 , 82 , 82,82, 82 . 8 . 8 , 66 , 98 , 82 , 74 , -- 1 , 356 

2758 BRTR78 ,66,8,8,126,66, 66 , 66 , 6 6 , 1 26 , 8 , 8 , 1 26 , ■■- 1 , 778 

2768 DRTR6S , 66 ,126, 64 , 64 , 8 , 8 , 1 26 , 66 , 66 , 74 .- 78 .. 126,- 1 , 9 1 4 

2778 BRTR8 .8,1 26 , 66 , 66 ,126, 63 , 66,8 , 8 , 1 26 , 64 , 1 26 , - 1 , 834 

2788 BRTR2 ,2,1 26 , 8 , 8 , 1 26 , 24 , 24 , 24 , 24 , 24 , 8 ,8,-1, 376 

2738 BRTR66 :66: 66 ,66,66,126,8,8,66,66, 66 , 66 , 36 , ■- 1 , 736 

2888 BR TR24 , 8 , 8 , 82 , 82 , 82 , 32 ,- 32 , 1 26 , 8,8, 66 , 36 , - 1 , 662 

28 1 8 • BRTR24 , 24 , 36 , 66 ,8,8, 66 , 36 , 24 , 24 , 24 , 24 , 8 , - 1 , 348 

2828 BRTR8 , 1 26 , 4 , 8 ,16, 32 , 1 26 , 8 , 8 , 8 , 8 , 8 , 8 , - 1 , 3 1 2 

2838 BRTR8 .8,8,231,123,8,8,8,1 28 , 1 93 , 1 99 ,231,1 29 , - 1 , 1 248 

2848 BRTR 1 32 , 1 92 , 1 32 , 224 , 1 93 , 23 1 , 247 , 223 , 224 , 248 , 224 , 224 , 24 1 , -■ 1 , 28=1-9 

2858 BRTR23 1 , 255 , 253 , 248 , 248 , 248 , 248 , 233 , 255 , 253 , 255 , 8 , 8 , -•• 1 , 2733 

2868 BRTR8 ,8.8.8,8,8, 224 , 1 76 , 88 , 53 , 53 . 38 . 1 76 .- - 1 , 853 

2878 BRTR224 , 8 ,8,1 66 , 95 ,191, 78 , 8 , 8 , 8 , 8 . 8 , 8 , -- % , 746 

2888 BRTR8 , 24 , 24 , 8 , 8 , 2,6,12 , 24 , 48 , 96 , 8 .. 8 , -■■• 1 , 2:36 

2838 BRTR 1 26 , 66 , 66 , 66 , 66 , 1 26 , 8 , 8 , 1 2 , 28 , 4 , 4 , 4 , - 1 , 568 

2988 BRTR4 ,8,8,1 26 ,2,2,1 26 , 64 , 1 26 , 8 , 8 , 1 26 , 2 , - 1 , 578 

29 1 8 BRTR62 ,2,2,124, 8 , 8 , 64 , 72 , 72 , 1 26 , 3 , 8 , 8 , - 1 , 548 

2928 ÜRTR8 , 1 26 , 64 ,126,2,2,1 26 , 8 , 8 , 1 26 , 64 , 64 , 1 26 , - 1 , 826 

2938 BHTR6S , 1 26 , 8 , 8 , 1 26 .2,2 .. 2 , 2 , 2 , 8 , 8 , i 26 , - 1 , 454 

2348 BRTR66 , 1 26 , 6 6 , 6 6 , 1 26 , 8 , 8 , 1 26 , 66 , 1 2 6 , 2 , 2 . 1 26 , •- 1 , 8 38 

2958 DRTR8 , 8 ,8,2 4 , 24,8 , 24 , 24 , 8 , 2 54 , 1 68 , - 1,318 

3858 BRTR --18 

RERBV. 
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Erdspalte 



Mit einem Raumschiff müssen Sie möglichst tief in eine 
Erdspalte eindringen. Ist Ihnen das gelungen, befindet sich 
das Raumschiff in einer Tiefe von 200 m unter dem Meeres- 
spiegel, in einem engen Gewölbe mit einem schmalen 
Gang. Haben Sie auch diesen Teil der Strecke bewältigt, 
müssen Sie aufpassen. Man versucht Ihr Raumschiff abzu- 
schießen. 

Ziel des Spieles ist es, möglichst tief und weit voranzu- 
kommen. Wenn Sie schon einmal eine Raumfähre ge- 
steuert haben, werden Sie wissen, daß dies gar nicht so 
einfach ist. 

Gesteuert wird mit Joystick 2 ! 



±8 R 

2Ö R 

30 R 

•40 R 

SO P 

60 F 

70 R 

89 tl 

38 P 
7,2 

±00 

±±8 

5427 

±20 

±38 

±4© 

±50 

±60 

±70 

±8© 

±96 

200 

2±8 

220 
230 
2-40 
256 
260 
270 
280 
290 
300 
310 
320 
330 
3-40 
350 
360 
370 
380 
330 

■400 



EM ** 
EM ** < 
EM 



C> 



ERD 

BEI 



SPALT 
F . BR 



E * 



QKE532 
ORI=78 
EM *h* 

: Z = 
OKE532 



ALL 3/8-4 ** 




8±, 3 = 
-4 T076 
LEVEL 

= 3=20 : 
-43, 60 : 



POKE5 
6 '- REA 
± **» 
X = 70 = 
POKE2 



3280,3 

D DA = POKEI , DA ; HEXT 

V=79 : G = ± 

0-»Ö , ±± = POKE53285 , 5 = POKE53286 , 6 : POKE5328 



POKE53263,±=POKE53276,± 

POKE 54273,20:POKE54276,ß 

6 1 131 

PRIHT'V i 

FORI=± TO ±0 

PRIHT""ljaC 

PRIMT"!! L3 

priht"" ua 

PRIHT""H !^ 

PRIHT""!". U3 

PRIHT"" La 

PRIHT"" ua 

PRINTTAB<20>"*ffi 
PRIMTTAB<:2e>""!j3C 
PR I HTT AB < 2± > ,M iaC3 



POKE54286, 3 = P0KE54278 „ 255 = POKE 



HEXT 



PRIHTTAB-C 



>\"LaC 



PRIHTTAB<23> , "L"ÜC 

PRIMTTAB<23>""Ltfü 

PR I HTT AB < 22 > "i&l 

PR I HTT AB < 2± > ""U3C 

PRIHTTAB<20>""iaFJ 

FORI=i TO 29:W=IHT<RND<1)*400)+I 

GOSUB 43fl:V=V+6:G=G+0.05 

IF V>208 THEH 3-48 

G0T031Ü 

PRIHT 

GOSUB 430:W=IHT(RHD(.5)*3>-1 

S = S + M 

IF S>27 THEH S = S-2 
IF S<2 THEH S = S + 2 
PRIHTTAB<S>""Od 
M=M*± - Z = Z + ± = IF Z=50 
"" : Z = 



2-4= POKE M, ±7-4 HEXT I 



THEH PRINT""L5«""M"" METER""T AB < 3 > "Oa 
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410 


IF W>2B0 THEN 648 






420 


60TO350 








430 


REM *m* JOVSTICK ABFRAGE ***• 






448 


POKE 56322, 


224: J=PEEK<56328> 






458 


IF (JftND i> 


=8 THEN G=G-8 S 15 






466 


IF (JftND 2> 


=8 THEN G=G*8„1 






478 


IF (JAHD 4> 


«8 THEN X = X-2 






480 


IF (JAND 8> 


=8 THEN X = X*2 






490 


IF G>4 THEH 6=4 






580 


IF G<-- * THEH G = -4 






518 


POKE 53279, 


0:P0KE5 42 36,4-G 






52:0 


HB=INT(X/25G> = LB= < XAHD255 > 






530 


POKE53269, 


:POKE 53248 ,LB-PGKE53249 J 


V:POKE 53264, HB : POKE 


53269 ji 1 








540 


POKE 56322, 


255 






550 


IF PEEK(532 


79><>1 THEN 1128 






568 


RETURN 








5TO 


DATA 8,66,8 


,8, 255, 8, 3, 255, 192 






nD 1 n$ fcf 


DATA 3,255, 


.Ä. %lr if-r- ji 13 iD* ji £. %J iJ 1 ji iCm. ^p £«* jj •ät jt *&- tJ -»«r j •*&* -i»r iE» 






590 


DATA 8,170, 


8, 8, 178, 8,1, 85, 64 






600 


DATA 1,85,64,1,157,64,1,85,64 






618 


DATA .1,118, 


64, 1 , 85, 64, 1 , 85, 64 






62G 


DATA 8,60,8 


,8,255,8,3,255,192 






63Ö 


DATA 2,178, 


128 , 2 , 178 , 128 ,8,8,8 






640 


REM **** LEU EL. 2 •**-**• 






650 


PRIMTTAB<S> 


"Eiä 






ti> %> cJ 


GOSUB438 " GOSUB43Q - GOSUB438 






678 


IF S Ir" 5 T H fc_ M 


S — S — 1 -- GOTO 6 48 






G80 


POKE 53281, 


1 






698 


PR InT fcjJK"«"! 


*;*;*;*;*;*:*;*;*;*;*;*:*;*:*:*:*;*;"Ä*;*;*:": 


*;*;*;*;*;*;■;*;>:*;¥; 


*ft" 


760 


rKi n I »U"! 


*: *: 


-ft' 




7J.0 


PRIHT"S 


•*;■; b X"iI"ii 


ft» 




720 


PRINT'*:ä 


*; *:*:*;*: 


;■;■* 




730 


print-"*: 


"ft °.% *: 


*:* 




740 


PRIMT"¥: 


*: *: "ft *ft*:*ft*:*:*«*: *:" 




758 


PRINT"¥: 


«"*& *; *: ¥&**-: 


"X 




760 


PRINT" "*; 


*;*; *; *; ^ÄÄ":*:*: 


K"" 




770 


PRIHT'"?: 


*: *; *: *:*:*ft*ft 


*:* 




780 


PRINT""*; 


*: *: -ft *:*:*ft*ft 


%% 




790 


PRIMT M ¥: 


*; *; *; •ft*A*Ä"ft": 


*ft":*:*r*ft-Ä*:*: * 




800 


PRIHT"S 


: ft *: *: *:*;*:*: 


*;" 




810 


PRIHT":ft 


*; *; *; *ft*ft 


*:* 




820 


PRINT" "*: 


*; *; *; *:*; 


*:" 




838 


print"*; 


*: *: *: äfft 


*;* 




840 


PRINT"*: 


*: *; *; *Sft*;*&*ft$ft *;*;" 




850 


PRINT-S 


: ft *; *: *:*:*: 


*:*;" 




8 60 


PRINT""*; 


*: *: *: *: 


■:*ft* 




876 


PRINT""*: 


*: *: *: 


WSft" 




88© 


PRINT"»*; 


*: W» 


*;*;*; " 




898 


PRINT"»*; 


*: *:*ft": 


*:*:*:*:* 




900 


print"*:*"*: 


■ft¥ft*: *"*ft""*:*ft 


*:¥:¥:*"*:*:" 




918 


PRINT* "*;-:*;*;*;*:*;*Ä*:-:*;-^;*ft*;*:*;*;*^:*^Ä*;*i*Ä*;*ft-: 


*:*:*;*:*:*; " 




928 


PRINT" "*«*;&*ft*: 


:*:*:*:*:*:*:*:*:*;*ft"ft*^ft*:*Ä*;*?ft":*:-:*;": 


¥:*;*;*:*:*; " 




938 


PRINT" "*;*£?ft*ft 


;*;"ft*^Ä*;*«"iÄ*:*;*:*^!?:*;*;*^>:*ft*:"ft*Ä*;": 


*:V:":*:*:*ft " 


, 


948 


X=45 : V=58 = G 


=1 = POKE53249, 8 






tf -i-J tj 


60S0B980 : V = 


V*6 : G=G+8 . 85 






968 


IF V>238 THEN 1368 






970 


M=M+1 : GOTO 


958 






988 


REH ****- JOYSTICK ABFRAGE **** 






990 


POKE 56322, 


224: J=PEEK<56328> 






±008 IF (JAND i>=8 THEN G = G-8,I8 






1818 IF <JAND 2 


>=© THEN G=G+8.1 
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1020 

1Ö36 
I04O 
1658 

1068 
10T6 
1086 

E 5 3 ■£„ 6 
1090 

1160 
1110 

1120 

1130 

54278 

11-40 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 
1230 
12-40 
±250 
1260 
1276 
128 
1280 

1300 

1310 

1320 
1330 
13-40 
±350 
±36 
1370 
1380 
1390 

1-400 

1-410 
1-420 

1-430 
1-4*40 
1-450 
1-460 
1-47Ö 

1-460 

1-430 

1500 

1510 
1520 
1530 
READ 



IF 
IF 

IF 
IF 
PO 

PO 

PO 

IF 
RE 
RE 
PO 

* 
PO 
FO 
FO 
PR 
PR 
PR 
PR 
PR 
PR 
PR 
PR 
PR 



PR 
PR 
PR 

PR 
PR 
GE 
RU 
EH 
RE 
PR 
PO 
GO 
IF 
Z« 
GO 
M« 
M= 
RE 
PO 
PR 
PR 
PR 
PR 
GE 
FO 
GO 
V . 



(JflMD 
(JAHD 

G>4 
00--4 
ICE 532 
= IHT<X 

KE53tB 
1 

PEEK< 
TURN 

MI **** E 
KE5-427 



•4>=0 TUEN X = X-2 

8>=0 THEN X = X + 2 
THEH G = 4 
THEH G---4 

79,0:POKE54296, 4-G 
/258) :LB=<XAHD255> 
9,0 POKE 532-48 , LB - POKE53249 



V:POKE 5326-4, HB - POK 



53279><>0 THEW 112Ö 

XPLOSIOH *h* 

3,18: POKE54276, O r. POKE54296 , 15 = POKE54277, 12 = POKE 



I:FORT=l TO100=HEKT T,I 



IM EIMER TIEFE MOM "I 
FANDEN SIE B>EN H TOP 



'11 METER! 



BITTE tü"' 



KE 54276,131 
RI=1T018:P0KE 2040 

RI=1 TO 2000 : NEXTI 

i MT-tiaaas" - poke5328i 

INT-b Sfift 

INT" SS 

INT" tfÄfc 

INT" :j¥S::^ftKft: : : : X::: 

INT"" Wftft 

INT*" Wft 

INT"" Sftft 

INT" Wftft 
I NT"" 
INT" a l£UJU 

JL HTl 8 rV3ito.ffiffl.iWr. .Äff ..P 

J. BT! » l > JFJff, JffLB 

INT""Lai*.ftl 

INT^'ÜHUIFUER NEUEN UERSUCH 

INT"" TASTE DRUECKEH" 
T ES:IF ES«"""" THEN 1330 
N 
l> 

M **** LEMEL 3 *h* 

ICE 53249 f 0:X = i68:Y = 50:Z = 8 
SUB 96Ö= V=V+G: G=6+0. 05 

V>238 THEH .1458 
Z+i=IF Z = 2 THEN Z=0:GOTO143O 
TO 1440 

INT<RND< . 5)»4fl) : PRINTSPC<M>*'yt" 
M+l = GOT01390 

DI ■*«€• ALLE 3 LEUEL DURCH **** 
KE53281,! 

INT*"L£Ä»l£lÜ UNGLAUBLICH » £■]"" 

INT"" SIE HABEN ALLE GEFAHREN UEBERSTANDEH ! ÜT 
IHT"Ü3 SIE SOLLTEN SICH BEI DER NASA BEWERBEN 
IMT"[»liIÜ»»RUE:CIKE 'R ' FUER RUM"" 
T E$:IF E$="R" THEN RUN 
RI=1 TO 10 POKE53280, I -NEXTI 
TO 1518 
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DoomedDinosi . 
i#id escape the Dino Mom's stomp? 



■yogwoon-r' 
lirpHätetf the-.dinosäüfS; You:rfiust oftmb nirie . 
otegtdiy cliffs, ftntt the efih&eggs.anö carry them 

ive. V.-;;- 

Mari-- 
:;^pj:;;ßlfi^||^fei|a : ;ari<l Jump '. :.''■ 
over the cbajifegJnig; sflff s v ; ■ : ; 
to Iccate the eggs. As you ' 

increase if you ära':t0 : : : viö;:;'; 
survi ye Öle tföicly ■ ' V: •': : - : ; / 




jö-th© qnly..Weapon you have to keep the Dino. 
\ from putting her foot down and crushing YOU!' 

stomp, avoid the crawiing, ciawing 

%ep#||i : lai^^öÖ# and save 1 
the dtnosaurs from exünctlon? Only 
you cän fä&© iteöHiifejpM'öf 

of' : DllNlÖ :: iööfe from M.icroFun, !nc; 
:,.).#?a:fe ; ^es o/? forever 






Avaiiabteföf: 1 

Atari 800* 
IBM PC" 
ColecoVision " 
Commodore S4" 
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Sprite-Data 



Dieses Programm ermöglicht es Sprites in Data-Zeilen abzu- 
speichern und diese in schon bestehende Programme einzu- 
fügen. Sollen die Data-Zeilen in ein Programm eingefügt 
werden, dann ist die entsprechende Frage im Programm mit 
JA zu beantworten und der Name des Programms einzu- 
geben. Normalerweise werden die Sprites ab der Zeilen- 
nummer 60000 abgespeichert. Sollen die Sprites ab einer 
anderen Zeilennummer abgespeichert werden, so ist die alte 
Zeilennummer in Zeile durch die neue Zeilennummer vor 
Programmstart zu ersetzen. 



Wenn die Frage nach einem weiteren Sprite mit NEIN 
beantwortet wurde, so löscht sich das Programm selbst und 
steigt mit einem UNDEF'D STATEMENT ERROR aus. 

Damit die Sprites in einem möglichst großen Bereich abge- 
legt werden können, wurden die Zeilennummern äußerst 
niedrig gehalten. Hierunter litt leider die Struktur des 
Programmes, was als Nachteil zu werten ist. 

*%&• %£*» *t* ^x** *$** *w* *>!-* *fc* ^t* *X* *>!■* *-l^ *&*+ *1^ ^^ *Ä** ^X^* ^t* *&* ^X** ^^* 
*T^ ^> «^V <^V *^% «^V #^> *"^ «^^ #^ *^V *^ <^> *^> *^j^ ^j> *^V «^S *»jV ^% i^p» 




8 DflTfi 60080; REH ERSTE SPRITE-DrlTflZEILE 

1 REM ### SPRITE -D FIT fi *** 

2 REM 

3 REM <C) 1983 BV LIPPE ENTERPRISES 

4 REM l C - V . Ii , L I P PE .. H S "i ' ERHS "!" R .16] 

5 REM C438 BUEHDE l'j 

6 REM 

7 FRim^mmmmmmwm sprite-brth ***" 
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8 PRINT"ÄWSOLLEH SPRITE-BRTR8 IN PROGRAMM EIHGE- FLIEGT WERBEN? CJ'/H ;■ " 

9 POKE 1 98 .■ @ : Hfl I T 1 98 .■ 2. : GETfl* : I Ffi$~ :: J ' : THENPOKE i 9 8 .• Ö : GQT0S7 

1 8 PR I NT " :r :• : PÜKE6DÖ .■ 1 28 : FÜR I : = 1 TÜ2 1 - FÜR J- 1 TQ24 : PR I NT i! . " .; ; HEXT : PR i NT : HEXT 
1 i 1=24 : PRINT"ä' i TRB< I > "ÄÜHSPRITE-DHTfl" : PRINTTflBU > "1(11=^=«^===« 

12 FRIHTTflBO > " jSWCRSR-TRSTEN =>" : PRINTTflBU •' "»■«STEUERUNG" 

13 PRINTTflBU)")»«] <>'': PRINTTflBU V'WiPUNKT SETZEH" 

14 P R I N T T HB U ) " KM t SP fl C E 3 "> ' ' : PR I N T T R B '• I ')' ; H IIP . L ESCH E N " 

15 PRINTTREU^ÄWFi ->'': PRINTTflBU >''WMSPRITE VER-" : PRINTTflBU > ,, *i*ttRBEITEN" 

16 PR I NTTflB < D n mt HQME J => ll : PR I NTTfiB U > " fr» »KURSOR HOME " 

17 PRI NTTflB«; I > "JWILCLR;] =>" : PRI NTTflB 1 1 > "MMHBILDSCH1RM" : PRINTTRB* I > " WWLOESCHEN" 

19 PRINT"*»»»i <C> 1983 BV LIPPE ENTERPRISESä" : X=0 : V=6 : VR=1@24 

29 Z=PEEKCVR+X+V#40) 

21 POKE VR+X+4@*Y.- 169 

22 GETfl* : PÜKEVR+X +V*4Ö.. Z : I FR*= " I: THEN2 1 

23 IFfl*="H"THEN50 
25 IFfl*a"M ,, THENV=V+l 

30 IFfl*="n"THENy=¥-l 
33 IFfl$="Sa u THENX-0:V=0 

35 I Ffl*= " rj" THENGGTÜ 1 Ö 

37 IFR** " " THENPOKE VR+X+40*¥ t 46 : X»X+ 1 
40 I FAS- " W' THENX=X+ 1 

42 IFR$="irTHENX=X-l 

43 IFR*-"*" THENPOKE VR+X+V*48 ■ 42 • X=X+i 

44 I FX>23THENX=0 : V™ V+ 1 

45 IFV<0THENV=0 

46 IFX<0THENX=0 

47 IFV>20THENV=20 

48 GOTO20 

50 d i nw < 64 ;• : x=ü ; v=0 : pr i nt n mimxmi^MmMmm.mM^Rim»^wmB i tte warten \ " 

55 FORI-0TO20 : FORJ=0TO23 

60 I FPEEK < VR+ 1 *40+ J ) M2THENW >:! I *3+ 1 NT < J/8 - 1 > =W '• I #3+ 1 NT C J/8 ) > 0R2 tt 7- < JRNB7 > '.:- 

70 HEXT ; HEXT : RERBZ : I NPUT "^BfflSfiBPNRME DES SPR I TES : " :• C$ 

71 PRINT l, r3MI3S ,, Z"REM "C* 

72 PR 1 NTZ+ 1 " IHJflTfl " i ■ FÜR I ™0TQ 1 5 : PR I NTR I GHT$ < STR$ < W ( i > > , LEN C STR$ (Hd)))-!)","; 

73 HEXT -PR INT 1 ' II " 

74 PRINT2+20"ISDRTR" ; ; F0RI=i6TQ31 ■ PRINTRIGHT$<STR*<W< I ) > .. LEHOiTR*«:; HCl > > ) -1 J' !i .■ ,! ; 

75 NEX'PPRINT"ii " 

76 PR I NTZ+30 " IIDRTR '• :• ■ FÜR I =32T048 = PR I NTR l GHT$ < STR* < W ( I > j , LEN < STR* < W < I ) > ) - 1 > " , " ; 

77 NEXT:PRINT"II " 

78 PR I NTZ+40 '" IIDflTfl ,! j : FÜR I ~4y'l"Ü62 : PR I NTR I GHT* ( STR* <. W ( I > > .■ LEN t STR$ < W a > > ) - 1 > " .■ " i 

79 HEXT :PRINT "li !i 

80 PRIHT"0DRTfl"2+b0 

81 PRINT"GOTü83' i 

82 F0RK=63 1 TO640 : PGKEX .- 1 3 ; NEKT : POKE 1 9 8 .- 1 S : PR I NT " S" ; : ENB 

83 PR I NT " LTSMMÄWNQCH E I NMRL? < J/H > i! 

84 GETfl$ : IFR$*"J"THENRUNi0 

85 IFfl*="N"THENZ«0 ; GCTÜ98 

86 GÜT084 

87 l NPUT " MBPROGRRMIIHflME : " ; B* 

88 PR I NT " WSCBflSSETTE ODER SSODSI 3KETTE? " : WH I T 1 98 , 1 ■ GETR$ :' I FR$-C " C " 0Rfl$> " D " THEN87 

89 PRIHT"WTRSTE DRUECKEN.WENN" : IFR*="B i, THENPRINT"RICHTIGE BISKETTE EINGELEGT. " 
99 I FR$= " C ,5 THENPR I NT " CRSSETTE ' RUF RNFRNG PROGRRMM GESPÜLT . WÜRBE . " , 

91 POKE 1 9 8 * : WR I T 1 9 8 , 1 : PR I N T '' '• WM i i W SB I T "f E WART EN ! ,! 

92 FÜ R X =s 204 8 T 1 E9 : I F P EEK < X ) ORPEE K ( K+ 1 > OR PEEK < X+ 2 ') T H EN HEX T 

93 X==X+ 1 : P0KE43 .- XRNB255 : P0KE44 > X/256 

94 PR I NT " ^KDSLOflB i! CHR* < 34 ) B*CHR* < 34 ) ; = I Ffl*= " B ' : THENPR I NT i! .■ 8 !i 

95 PR I NT : PR I NT u 'PX*M#M€*M*Z*PQK£*3 , i • P0KE44 .■ 8 : RUH 1 ö i! : FÜRX^SS 1 T0648 : POKEX 1 1 3 : HEXT 

36 POKE 1 98 .• 1 : PR I NT ;i 5=3" . ; : ENI) 

98 PR I NT " ZM*r Z ■ PR 1 NT " Z= :i Z+ 1 " : G0T03 8S8" ; : POKE63 1 .< 1 3 : P0KE632 .■ 1 3 : POKE 1 38 , 2 : ENB 

REflUV. 
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Karl der Käfer 



Die zweite Gefahr hat Karl zu bestehen, als er ein Teil des 
Weges im Flug bewältigen will. — Die dritte Gefahr bei 
Hindernissen, die sich ihm in den Weg stellen. 

Aber verraten wir nicht zu viel. Das Spiel erklärt sich bei 
Beginn von selbst und kann über Tastatur gesteuert 
werden. 

Wir können nur noch viel Spaß wünschen! 

*-»!> »4* +1+ ml* *1* »JU mX+ *L» *A* *j^ <L* *L» *1> «*£* *JL» *A> *!# mX+ ^t* ^» *t> 
"X* *j> *J> *•$> *•£* *•$* **j> vyv *-j> *^s *^ #jni *j* «<j* *«j% *j* *^> *y» Vj* >y* *£* 



Ein Spiel für den TT 99 ohne Ext. Basic! 

Karl der Käfer sucht sich eine neue Heimat. Auf dem Weg 
dorthin hat er jedoch viele Gefahren zu bestehen. Genaue 
genommen hat Karl drei Gefahren zu überwinden. 

Er muß zuerst eine Gegend durchqueren, die ziemlich 
schnell mit Häusern vollgebaut wird. Mehr Häuser, weni- 
ger Fressen. Karl kann nur Überleben, wenn er noch 
genug Blätter findet und den Weg beschreitet, der ihn am 
schnellsten aus der Gefahrenzone bringt. - 

Programmaufbau: 

100- 190 Einleitung 

200— 220 Schwierigkeitsgradwahl 

230- 390 Bildwahl 

400-1770 Bild 1 

410— 490 Zeichendefinierung 

500- 530 Farben 

620 Erklärung 
700 Bildaufbau 
790 Häusersetzen 
- 840 Blättersetzen 

850-1420 Steuerung 
1430-1480 Blatt gefressen 
1490-1580 Häusersetzen 
1590-1650 Käfer tot 
1660-1680 Alle Käfer tot 
1690-1770 Bild 1 geschaift 
1780-2870 Bild 2 
1 780 — 1 890 Zeichendefinierung 
1900-1920 Farben 
1930-2010 Erklärung 
2020-2230 Bildaufbau 
2240-2780 Steuerung 
2790-2860 Bild 2 geschafft 



540- 
630- 
710- 



2870-3830 
2890-2920 
2930-2970 
2980-3040 
3050-3180 
3190-3500 
3510-3600 
3610-3730 
3740-3830 
3840-4130 
3840-3850 
3860-3980 
3990-4130 



Bild 3 

Zeichendefinierung 

Farben 

Erklärung 

Bildaufbau 

Steuerung 

Bewegung Hindernis 

Hindernis geschafft 

Bild 3 geschafft 

Ende 

Käfer gerettet 

Punkte 

Noch ein Spiel? 




100 CALL CHRR<64,"3C4299FHR1^42:":r:"ii 

110 CALL CLEAR 

126 PRINT *'*************:*:***:*:*********:*:" 

139 PRINT "** KARL.- DER KREFER **** 

140 PRINT "**6 1983 RALF MESCHEDE **" 

150 PRINT "*#**#**#**#******#******#*#*»:; 

160 PRINT "SIE SIND KARL., DER KREFER UNDMUESSEN SICH EINE ANDERE 



#*" 



HEIMAT SUCHEN 



170 PRINT 
180 PRINT 
190 PRINT 
200 INFUT " 
210 IF SKG>3 
220 IF 3KG<1 
230 PRINT "• ' 



3 GEFAHREN UEBERWINDEN. 



"SIE HABEN 3 LEBEN. '• ■■ •■ ■ 
"SIE MUES8EN AUF IHREM WEG 
VIEL ERFOLG!"« ■ 

WAEHLEN SIE EIN SCHWIERIG-KEIT8GRRD< 1-3 >' " 'RKG 

THEN 206 

THEN 200 

"MIT WELCHEN BILD WOLLEN SIE ANFANGEN ?" < i 
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240 GMß=0 
256 PZ< 1 >«0 
268 PZ<2>»0 

279 P2<3)«0 

280 BO«0 
230 P«0 
300 TK>0 

310 PRINT "BILD 1 '■ STflDTDURCHQUERUNG" 

320 PRIHT "BILD 2' - RISIKOFLUGBILD 3= .HINDERNISLAUF" 

330 CRLL KEY<0,T,Y) 

340 IF Y-0 THEN 330 

350 IF T~50 THEN 1788 

360 IF T=5i THEN 2870 

370 IF T=49 THEN 410 

380 CRLL SOUNDU 00, 300,0) 

390 GOTO 330 

400 REM BILD 1 

410 NF=0 

420 CRLL CLERR 

430 BI*1 

440 CRLL CHRR<109,"2448F80404F84824"> 

450 CRLL CHflR<i08,"81825B24245B8231"> 

460 CRLL CHRRU10,"24121F20201F1224"> 

470 CRLL CHRRail,"8141DR2424DR4181") 

480 CRLL CHRRC100,"10386CFE7C545C5C") 

430 CRLL CHRRU12, "0000183C3E1E0E01") 

500 CRLL SCREEN<4) 

510 CRLL COLORC1 1,13,1) 

520 CRLL C0L0R<9,2,1) 

530 CALL COLOR< 19,2,1) 

540 PRINT ' , m**STRDTDURCHQUERUNG:*:•m* ,, = = 

550 PRINT "SIE RLS no MUE8SEN DURCH EINE STRDT GEHEN, DIE IMMER MEHR MIT d ZU 

GEBRUT WIRD." 

560 PRINT ""WENN SIE EIN P ESSEN KOENNENSIE 15 SCHRITTE WEITER GEHEN"" 

570 PRINT "SIE SIND TOT, WENN SIE EIN d BERUEHREN ODER 16 SCHRITTE GEHEN OHNE EI 

N BLRTT ZU ESSEN. " ' « 

580 PRINT "SIE BEWEGEN SICH DURCH*"" 

590 PRINT " E-CÜBEN) S-CLINKS) D-C RECHTS) X-<HN 

TEN)"" 

600 PRINT "DURCH DRUECKEN EINER TRSTE BEGINNT DAS SPIEL." 

610 CRLL KEY(0,T,Y) 

620 IF Y*0 THEN 610 

630 CRLL CLERR 

640 NF=0 

650 CRLL HCHRRa, 3, 100,28) 

€m CALL HCHAR<24,3,100,28> 

670 CRLL VCHARC3,3,100,21) 

680 CRLL VCHRR'Ü2,30,100,19) 

690 CALL HCHRR< 2,2,110) 

700 CRLL HCHRR<2,3,111) 

710 SK«3 

720 ZK*2 

730 IF SKG*1 THEN 800 

?m FOR A«l TO 12*SKG 

750 RANDOW ZE 

760 ZH«rNKRND*22+2) 

770 SH=INT<RND*25+4> 

780 CRLL HCHAR<ZH,8H, 100) 

790 NEXT fl 

800 FOR fl*4 TO 29 

310 ZB*INT<RND*22+2) 

820 CRLL HCHRR(ZB,R,112.) 

28 ^ __ ——«——^ _— Computronic 
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339 
840 

550 
860 
570 
386 
890 

900 

910 

320 
930 
940 
950 
960 
970 
980 
990 

1000 
1010 
1020 

103© 

1040 

1050 

1060 
1070 

1080 

1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 

1200 

121Ü 
1220 
1230 
1240 
1250 
1260 
1270 
12Q9 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 



HEXT R 

CALL 80UNDC 400, 110,0) 

CRLL KEYC0,T,Y) 

IF Y*0 THEN 1490 

IF T«68 THEN 1079 

IF T=69 THEN 1260 

IF T=88 THEN 1330 

IF T<>83 THEN 1490 

CRLL HCHHR<ZK,8K- 1,32,2) 

NF*NF+1 

IF NF« 15 THEH 1598 

P«P-1 

CK* 109 

Sfc>8K-l 

IF SK>2 THEN 990 

Sk>3 

CRLL GCHRR< ZK , SK- 1 , FG > 
IF FG=32 THEN 1030 
IF FG=li2 THEN 1430 
IF FG=100 THEN 1590 
CRLL HCH AR< ZK , SK- 1 , 1 03 > 
HCHRRCZK,SK,109> 
SOUNDO 00, 400,0) 
1490 
HCHRR<ZK,8K-1, 



52.. 2 > 



CALL 

CRLL 

GOTO 

CRLL 

NF«NF+i 

IF NF« 15 THEN 1599 
p«p-.l 

CK*111 

IF 3K<31 THEN 1150 

GOTO 1690 

CRLL GCHRR<ZK,8K,FG) 

IF FG*32 THEN 1190 

IF FG*1!2 THEN 1430 

IF FG*100 THEN 1590 

GOTO 1390 

CRLL HCHRRC ZK , SK- 1 , 32 , 2 ) 

NF*NF+1 

IF NF« 15 THEN 1590 

P-F-l 

ZK=ZK-1 

CRLL GCHAR<!ZK,SK,FG) 

CALL GCHAR< ZK , SK- 1 , GF ) 

IF FG=100 THEN 1590 

IF GF*100 THEN 1590 

IF GF=112 THEN 1430 

IF FG*112 THEN 1430 

IF FG«32 THEN 1390 

IF GF*32 THEN 1390 

CRLL HCHAR<ZK,5K-1, 

NF-NF+1 

IF HF« 15 THEN 1599 
p«p~i 

ZK=2K+1 

GOTO 1250 

CALL HCHHRC ZK , SK- 1 , CK- 1 ) 

CRLL HCHRR<ZK,SK,CK) 

CALL SOUND< 100,400,0) 

GOTO 1490 

NF*0 




2> 
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1450 

1460 
1470 
1488 

1490 

1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1589 
1590 

1600 

1610 
1650 
1630 
1640 
1650 
1660 
1670 
1630 
1690 

1700 

1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1791 
1800 
1810 
1820 
1839 
1840 
1850 
1860 
1870 
1880 
1890 

1900 

1919 

1920 
1930 
1940 
ND." 

1950 



"RLLE DREI KREFER SIND TOT! 



CRLL SOUND< 200, 220,0) 
CRLL SOÜND< 100, 550,8 > 
CRLL SOUND''. 200 , 480 , ) 
GOTO 1390 
RRNDOMIZE 
ZH=INKRND*22+2) 
8H=INT(RND*25+4) 
CRLL GCHRR<ZH,8H,FG) 
IF FO103 THEN 1500 
IF FG-109 THEN 1500 
IF FG-110 THEN 1500 
IF FG=lil THEN 1500 
CALL HCHRR<ZH,SH,100> ' 
GOTO 850 

PRINT ...=.:::.:.:::::::: "EIN KREFER IST TOT 

CRLL SÖUNDC 400,-6,0) 

FOR R=l TO 200 

HEXT fl 

TK=TK+1 

IF TK>3 THEN 1669 

ON BI GOTO 630,2020,3050 

PRINT .. t : i.. ........ i 

P2<BI>-P 

GOTO 3870 

CRLL SOUNDU 00, 300,6) 

CRLL SOUND< 200 , 500 , 9 > 

P«P+508 

CRLL 80UNDC 200 , 200 , ) 
PIX 1 >=P 

P=0 

CRLL 80UNDC 200 , 40O , > 

GMB=GMB+1 

IF GMB*3 THEN 3840 

REM BILD 2 

BI-2 

CRLL CLERR 

IF SKG=3 THEN 

KGG=1 

GOTO 1840 

KGG-2 

CRLL CHRRO04, 

CHRRU0= 

CHRRaiÖ, "24121F20201F1224" ) 

CHRRU11, "8141DR2424DR4181" ) 

CHRR< 103, "RR552R542R1408" > 

CHRRC 119, "FFFFFFFFFFFFFPFFFFFFF 1 

COLOR< 11,6,6) 

COLOR<10,2,1> 

CÜL0R<9,2,6) 
" *********R I S I KÜFLUG******'.*** " 



1830 



"1F20183E3E18201F 1 
"01815R3C3C5R810I 1 



CRLL 

CRLL 

CRLL 

CRLL 

CRLL 

CRLL 

CRLL 

CRLL 

PRINT 

PRINT "SIE MUE83EN DURCH 2 LUFT- 



STROEME FLIEGEN, DIE DURCH 9 



PRINT "SIE WERDEN, NENN SIE IN EINEMLUFTSTROM SIND. NACH OBEN 



1960 PRINT "SIE KOENHEN ZWISCHEN DEN BEIDEN LUFTSTROEMEN NEUE 
ELN. " 

1970 PRINT "SIE STERBEN, WENN SIE IN EINEGIFTWOLKE FLIEGEN ODER DEN 
EN) BILDSCHIRM- RRND BERUEHREN. " 
1980 PRINT "SIE FLIEGEN DURCH - 
X-NRCH UNTEN" 
1990 PRINT "DURCH DRUECKEN EINER TRSTE BEGINNT DRS SPIEL." 
2000 CRLL KEV03,T,Y) 



VERSEUCHT SI 
RBGETRIEBEN. 
KRREFTE SRMM 
OBEREM UNTER 
E-NRCH OBEN 
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2019 IF Y=0 THEN 200H 

2029 CRLL CLEflR 

2030 P=P+100 
2040 FOR R«l TO 24 
2050 GOSUB 2030 
2060 NEXT n 
2070 GOTO 2170 
2088 PRINT " WWWUUMI,,.ii...ii.,h...i i.iuui uijijui.ti.i" 

2090 RANDOW ZE 

2100 SLl=INT<RND*10+5) 

2110 CALL HCHRR<23,3L1,103> 

2120 FOR fifl«i TO KGG 

2130 3L2-INT<RND*11+19> 

2140 CALL HCHAR<23,8L2,1Ö3) 

2150 NEXT RA 

2160 RETURN 

2170 SK=3 

2180 ZK*15 

2190 CRLL COLORO 0,2,1) 

2200 CRLL HCHRR<!15,2,110) 

2210 CRLL HCHRR< 15,3, 111 > 

2220 KK«111 

2230 CRLL SOUNDS 400, 110,0) 

2240 CALL KEY(0,T,Y> 

2250 IF Y=@ THEN 2679 

2260 IF T=69 THEN 2570 

2270 IF T<>83 THEN 2669 

2280 IF SK>5 THEN 2320 

2290 LC-32 

2300 CRLL COLOR<10,2,n 

2310 GOTO 2370 

2320 IF 3KX16 THEN 2350 

2330 IF SKM3 THEN 2350 

2340 GOTO 2290 

2350 LC«li9 

2360 CRLL COLOR< 10,2,6) 

2370 IF T*69 THEN 2530 

2380 CRLL HCHRRCZK,SK-1 .LCTO 

2390 KK«10^ 

2400 ZK»ZK+1 

2410 P-P-l 

2420 CRLL SOUNDa 00, 500,0) 

2430 IF ZK>23 THEN 2730 

2440 8K=«8K+1 

2450 IF 3K«4 THEN 2430 

2460 IF SK<16 THEN 2510 

2470 IF SK>18 THEN 2510 

2430 KK-lil 

2490 IF SK«31 THEN 2790 

2500 GOTO 2560 

2510 IF SK»31 THEN 2796 

2520 CRLL GCHRR<ZK+1,SK-1,FG) 

2530 CALL GCHRR<ZK+1,SK,GF) 

2540 IF FG«103 THEN 2780 

2550 IF GF=103 THEN 2780 

2560 GOTO 2670 -*«mm ■-■■■**' 

2570 GOTO 2280 

2530 KKsiÖS 

2590 CRLL HCHRR<ZK,SK-1,LC,2) 

2600 ZK=ZK~2 

2610 CRLL 30UND< 100,500,0) 

2620 P-P-i 
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2630 

264Ö 

2650 

2668 

2670 

2680- 

2699 

2700 

2719 

2720 

2730 

2740 

2750 

2760 

2770 

2780 

2790 

2*00 

2810 

2820 

283Ö 

2849 

2850 

2860 

2870 

2880 

2890 

2900 

2910 

2920 

2930 

2940 

2950 

2960 

2970 

2980 

2990 

3A00 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3100 

3110 
3120 
213tf 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
2210 
3220 
3230 
3240 



IF ZK<! THEN 2780 

SK-SK+1 

GOTO 2450 

Y«0 

IF M~ 105 TUEN 2696 

CALL HCHflR< ZK , SK- 1 .• 32 , 2 ) 

GOSUB 2080 

IF KK«111 THEH 2720 

IF Y*0 THEH 2750 

CALL HCHRRC ZK , SK- 1 , KK- 1 ) 

CALL HCHAR<r.ZK,SK,KK> 

GOTO 2240 

•?y s7|<— 1 

IF 2K<i THEH 2780 

GOTO 2240 

GOTO 1590 

CRLL 30UN0< 1 00 , 300 , 5 

CALL SOUNDS 1 00 , 500 , 8 ':• 

CALL SOUND< 1 00 , 400 , O > 

PZ< 2 >™P 

P-0 

GMB-GMB+1 

IF GMB=3 THEH 3840 

BI-3 

3. BILD 

CHflR<il5,"FFFF") 

CHRRC99, "0000006060606060" > 

CHRR< 1 06 .. " 000007 1 820403F22 " 

CHRRC 107, "0102356E1212EC29" 

CLERR 

C0L0R<9,2,1> 

COLOR< 11,5,1 !:- 

SCREEN< 4 ) 

COLOR.;i0,2, 1 ■• 
" *****#*H I NDERN I SLflUF*m*m ' 



REM 

CALL 

CRLL 

CALL 

CRLL 

CRLL 

CRLL 

CRLL 

CRLL 

CRLL 

PRINT 

PRIHT 

PRINT 

PRIHT 

PRINT 




"SIE Jk MUESSEN UEBER c 
"WENN SIE EIN HINDERNIS 



"WENN SIE DIE E-TflSTE 
"DURCH DRUECKEN EINER TRSTE 

CALL KEY<0,T,Y> 

IF Y=9 THEH 3030 

CRLL CLERR 

FÜR R=8 TO 24 STEP 8 

CRLL HCH RR< A , 1 , 1 1 5 , 32 ) 

CRLL HCHRRC R- 1,32, 99 > 

HEXT R 

SK-2 

2K«7 

HS=32 

HZ=7 

P=P+ 

CRLL 

CRLL 

R=l 

CRLL 

CALL 

IF Y 

IF T 
p Ä p~ 

CRLL 
CRLL 



SPRINGEN, DAS IHNEN ENTGEGEN 
NICHT UEBERSPR INGEN, SIND SI 
DRUECKEN, SPRINGEN SIE. " — 
BEGINNT DRS SPIEL.": = « = 



KOMMT. 
ETOT.": 



150 
HCHAR<ZK,SK-1,106> 

HCHRRC ZK, SK, 107) 

SOUND< 400, 110,0!) 

KEY(0,T,Y> 
«0 THEN 3420 
<>69 THEN 3420 
4 

HCHRRC ZK, SK» 1,32 ,2 

80UHDC 1 00,500,0) 
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3250 ZK*2K-1 

3260 8K*SK+2 

3270 IF 8K>31 THEN 3610 

3230 CALL HCHffltt ZK, SK- 1,106? 

3290 CRLL HCHRR<ZK,SK,187) 

3300 CRLL SOUND<200,308,8) 

3310 CRLL HCHRR<ZK,SK-i,32,2> 

3320 ZK«ZK+1 

3330 8K*8K+2 

3340 IF SK>31 THEN 3610 

3350 CRLL GCHRR<ZK,SK~1,FG) 

3360 CRLL GCHRR<ZK,SK,GF) 

3370 IF FC<>32 THEN 4130 

3380 IF GF<>32 THEN 4136 

3390 CRLL HCHRR< ZK, SK- 1,186) 

3400 CRLL HCHRR<ZK,8K,107) 

3410 GOTO 3510 

3420 CRLL HCHRRCZK,8K-1,32,2> 

3430 P=P-1 

3440 CRLL SOUND( 200, 406,0 ::- 

3450 SK-SK+1 

3460 IF SK>31 THEN 3610 

3470 CRLL GCHRR<ZK,SK,FG) 

3480 IF FG<>32 THEN 4130 

3490 CRLL HCHRRC ZK, SK- 1,106) 

3500 CRLL HCHRR<ZK,SK,107> 

3510 FOR ZX*1 TO R 

3520 CRLL HCHAR<HZ,H8,32> 

3530 HS-HS-1 

3546 IF H8M THEN 3560 

3550 H3=31 

3560 CRLL GCHRR<HZ,HS,GF) 

3578 IF GF<>32 THEN 4138 

3580 CRLL HCHRR< HZ, HS, 99) 

3590 NEXT ZX 

3600 GOTO 3190 

3618 CRLL SOUNDC 260, 200,0) 

3620 CRLL SOUNDS 280, 500,8) 

3630 CRLL 801MX 200, 350,8) 

3640 IF ZK MB THEN 3678 

3658 ZK=15 

3668 GOTO 3690 

3670 IF 2K>28 THEN 3748 

3680 ZK-23 

3698 R=SKG 

3708 8K*2 

3710 H2=H2+8 

3720 HS=32 

3730 GOTO 3190 

3740 FOR XR=1 TO 3 

3750 FOR XF-I1B TO 668 STEP 110 

3760 CRLL SOUNDa00,XF,0) 

3770 NEXT XF 

3788 NEXT XR 

3790 P*P+600 

3808 PZ-?.3>=P 

3818 GMB«GMB+1 

3820 P«0 

3830 IF GMB<3 THEN 410 

3848 PR INT " ICH GRATULIERE»":« 

3850 BÜ*400*< 3-TK > 

3368 PRINT "SIE HABEN RLLE DREI BILDER 




BEI SCHWIERIGKEITSGRAD" sSKG, "GESCHAFFT, 
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PZ'.:i>; "PUNKTE" 
PZ(. 2 >j "PUNKTE" 
PK. 3 >.s "PUNKTE" 
BO.i "PUNKTE" = = 



P 



3870 PRINT "BILD 1 

3880 PRINT "BILD. 2 

3890 PRINT "BILD 3 

3900 PRINT "BONUS 

3910 P«PZ< 1 >+P2< 2 )+PZ< 3 )+BO 

3920 PRINT "PUNKTE INSGESRMT 

3930 IF P<TB THEN 3980 

3940 CALL SOUNDO00.300.-0> 

3950 CALL SOUND<200,600,0> 

3960 CALL SÜUND<1 00, 400,0) 

3970 TB*P 

3930 PRINT "TflGESBESTLEISTUNG' M ;TB 

3990 PRINT =:="NOCH EIN SPIEL? < J/N 

4000 CALL K£Y<Q,T,Y) 

4010 IF Y*0 THEN 4000 

4020 IF T«74 THEN 110 

4030 IF T*73 THEN 4060 

4840 CALL SOUND< 200, 110,0) 

4058 GHTn 4900 

4060 PRINT ■■■■•■" BIS BRLD! 

4070 FOR T"l TO 7 

4080 FOR F«110 TO 990 STEP 110 

4090 CfiLL SOUND<200,F,T) 

4100 NEXT F 

4110 NEXT T 

4120 END 

4130 GOTO 1590 



6 1983 RRLF MESCHEDE" 



LASER 




LASER 110 - 4 KByte RAM. Dieser „persönliche Computer" eignet sich als Helfer beim Studium, am Arbeitsplatz oder 
bei Analysen und Statistiken. Mit seinen Peripheriegeräten erfüllt er alle Ansprüche an einen Home-Computer. 
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Das Programm ist in Extended-Basic 
benötigt Joysticks. 



ALIEN-LANDING 



geschrieben und Noch, ein Hinweis zum Abtippen des Programms: 



Angriff aus dem A1L 

Versuchen Sie mit einer beweglichen Kanone »ALIENS« 

abzuschießen, die auf der Planetenoberfläche landen 

wollen. 

Sie haben pro Runde 10 »ALIENS« zu treffen, aber nur 25 

Raketen und 180 sec Zeit. 

Ihre Aufgabe wird dadurch erschwert, daß die »ALIENS«* 
pro Runde immer intelligenter und schneller werden. Bei 
steigender Schwierigkeit haben Sie wirklich keine Sekunde 
Zeit zu verlieren, denn Sie müssen immer damit rechnen, 
daß Ihre Kanone von einem Monteur repariert werden 
muß, der zu den unmöglichsten Zeiten in Aktion tritt, und 
Ihre Restzeit dadurch leider verringert. 

Auch hat die Anzahl der verschossenen Raketen eine Ein- 
wirkung auf die Punktvergabe pro Treffer. 



Einige Befehlszeilen werden beim normalen Abtippen nicht 
vollständig angenommen. Beenden Sie die Eingabe mit 
(ENTER) und rufen Sie diese Programmzeile mit (FNCT- 
REDO) zurück, wonach Sie dann die Zeile komplett fertig 
schreiben können. (ENTER) nicht vergessen. 

Ebenfalls müssen alle Ausrufezeichen mit eingegeben 
werden. 

Aus Platzgründen wurde auf erklärende Remarks ver- 
zichtet. 

Wenn das Programm läuft, wird der gesamte Speicher- 
bereich bis auf ca. 100 Bytes ausgenützt. 

Wir finden, ein tolles Spiel, und wünschen viel Spaß und 
Punkte. 

*»l* »i* »i< »t» »t» «A» «i» «l< «&• »t* «4» «4» «4? «1* «1* »]> »J* »t* vlj *J* «J^ 
rji if» »j; *J» *f+ Jf> »f. *Jv »i* *J> vj> «r» •*!» »I» »J» »y» <$+ *T* 1* 1* 1* 
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180 CRLL CLERR <■ CALL SCREENC2)" FOR 1 = 1 TO 12 " CRLL COLORCI, 16,2V > NEXT I 
' '■ RfiNDOHIZE 

110 CRLL MRGNIFYC2)" 1=1 " FOR T«l TD 13 " READ R " CRLL SPRITEC#T,fi, 1NTCRND 
*13)+3, 1*16+2, 1*3+80,0, -9)«' 1 = 1 + 1 " IF fl-32 THEN 1 = 1 

129 HEXT T 

130 DISPLAY ATC 9,1 )BEEP •"***** ALIEN - LRNDING *****"• < > « « "** written bu U. 
Doettsch **"• i" ** 6108 Weiterstadt 3 *#" « '" ** RaPPwj.ehlstr.58c **" 
140 GOSUB 1400 •< DISPLAY RTC 5, 8 )BEEP= "Verhindern Sie die Landur.9" ' = " von 
1 Ö R l i ein ' s , " •• • " Nach 1 % Abs chuesser« w i rd es " « J " schwerer . " 

J50 DISPLAY RTC 15,1)' "Es arbeitet. Joystick Nr. 1" ' • "fuer liriks/rechts und Feuer. 

" ■ « GOSUB 1400 

160 CALL CHRRC 128, "010" , 136, "000000001 ",92, "18" ,34, "00008", 33, "FFFFFFFFFFFFFFFF" 

) 

1 70 CRLL CHRRC 35 ,"01 0294 1 820404080 " , 36 , " 80C060783C3E0E0 1" , 37 , " 8 1 C 1 D37*B7E 1 E0C00 " ) 

180 DRTR 65,76,73,69,78,32,76,65,78,68,73,78,7t 

190 DRTR 20,2,37,22,2,35,20,3,37,21,3,35,20,4,36,21,5,36,22,6,36,22,7,35,21,8,35 

200' DRTR 20,10,35,20,11,37,21,11,36,20,12,36,22,12,36,21,13,37,21,14,36,21,15,35 

.21,16,37 

210 DATA 21,17,36,22,18,36,22,19,35,21,20,35,20,21,35,20,22,37,21,22,36,20,23,37 

,22,23,36 

220 DRTR 20,24,37,20,25,36,21,26,36,22,27,36,21,28,35,20,29,35,20,30,36,21,31,37 

«21, 15» 35 < 2 1 • 26 ?6 

230 ' KR$» "010101010101 0323262E3F0 1 63B5DF60808080808080C0C46474FC80CSRBFD06 " 

240 E 1 •■ " 020920042 1 880 1 5000 1 2802004 400808200844002 1 0800248 1 002400940 1 1 080 " 

250 F2S= " 00000000 1 200020802000520020000000000009000500440009040 1 400400000 " 

260. E3*= ,, 00000005000208'000R00058000000000000000004000R80010400020000000'00 H ' ' CA 

LL CHRRC 140, RPT*< "0" , 16 Ä" 181 8081838 180818 "&RPTSC "0" , 32 ) ) 

270 CRLL CHRRC44,RPT*C"0",16>&"1818887ElA192422"^RPT$c:"0",32>>' ' CALL CHRRC132,R 

PT*C M 0",16>fe"1318085C3R181414"&RPT*<"0",32)) 

280 CRLL CHRRC 108, KR* >• « CALL CHARC 116, "000000000000FFFF" >■ « CRLL CHRRC 112, El$>= 

' CALL CHRRC 120,E2$) = ■■ CALL CHARC 124, E3*> 

290 R*«"0101010103070504000500020102000180808080C0E0R0208020408040008040" = • CRL 

L CHRRC 40, RS) 

390 CRLL COLORC 13, 14, 1,1,6, 1,14,5, 1,8, 12, 1,11, 14,1 >« - CRLL CLERR " CALL HCHARC2 

3.1,116,64> !: GOSUB 1280 

310 FOR 1=1 TO 38 '' READ X,Y,Z '' CALL HCHRRCX, Y,Z>" HEXT I 

320 CALL VCHRRC1, 1,33,24)' ' CRLL VCHRRC 1,32, 33,24 )■ - PU=0 n LE=1 ■■ GOSUB 1440 

330 CRLL HCHRRC 1,1,33,32)== CALL HCHREC24, 1,33,32)- •> CALL DELSPRITEC ALL) 

340 CRLL MRGNIFYC3)- 1.1=166 ■■ L2=126 " TREF,FEHL,T«0 i: !J4*16 > ■■ ON LE GOTO 9 

80, 1000, 1020, 1049, 1060, 1080, 1 100, 1 120, 1 140, 1 160 

350 CRLL CHRRC 96 , U 1 * , 1 00 , U2« , 1 04 , U3* ) 

360 DISPLAY ATC1,1)SI2EC13)'"! MUFO NR: » n DISPLAY RTC 24, 1 )SIZEC 13)' "RAKETE 

NR' 0" 

370 DISPLAY RTC 24, 17 )SIZEC 11)' "PUNKTE' " =' DISPLAY RTC 24,23)SIZEC6)'PU •• * DI 

SPLRY RTC 1,17 )SIZEC 13) '"TIME' SEC" =' CRLL DELSPRITEC #l,tt2, #3, #4, #5, #6)" CRL 

L MRGNIFYC3) 

380 FOR 1=30 TO STEP -2 ■ « CALL SOUNDC 100,600, 1,700, 1,-2, I )<< FOR D-l TO 25" 

NEXT D i i NEXT I 
390 GÖSÜB 1440 " CALL SPRITE<#1,96,F, INKRND*C 95-45+1 ))+45,256,-20, INTCRND*30)+ 
95*SGNCRND~.5)) 

400 CALL SPRITEC#2,108,11,L1,L2)= ' CALL COLORC#l,F)' ■ CALL MOTIONC#l, INT<RND*3)+ 
1 ■ INTC RND*20 )+10*SGNC RND-. 5 ) ) 

410 FOR 1=96 TO 104 STEP 4 " CALL PATTERHCttl, I )" CALL JOYSTC 1,A,B)" CALL HOTI 
ONC#2,0,6*R)" CRLL KEYC1,X,Y)=' IF X=18 THEN 470 '= GOSUB 1460 

420 CRLL JOYSTC 1 , A , B ) = CRLL MOT I ONC #2 , , 6*R ) ' = CRLL KEYC 1 , X , Y ) « ' I F X= 1 8 THEN 4 
70 

430 NEXT I 

440 T=T+1.12 =' GOSUB 1450 " IF T>13& THEN 890 "- CRLL PATTERN<#1,96 V « CRLL JO 
YSTC1,A,B)=' CALL f1OTIONC#2,0,6*:A)' ' CALL KEYC1,X,Y)' = IF X»13 THEN 470 
450 CALL MOT I ONC # 1 , RNDfcLE , I NTC RND*LEV+C LE V/2 > )*8GHC RND- . 4 ) ) • ' CRLL PRTTERNC #1,10 
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4)= = CALL JOYSKI,A,B) = « CRLL MOTION* #2, 0,6*R> 

460 CRLL KEYa,X,Y)= = IF X-18 THEN 470 - GOTO 410 

470 CALL MOTIOM#2,0,0>= = CRLL P0SITI0N<#2,P1,P2)= = CRLL SPR1TE<#3,40, 16, PI +4, P2 

. - 1 28 , ) = : CALL SOUND< -50 , -5 , ) •• •> GOTO 920 

48R CRLL 80UNDO 1000,-7,0) = » CRLL PRTTERH<#3, 112 ) = = CRLL MOTIOH<#3,-4,0>= = CRLL 

P08lflüNC#l,Pl,P2> 

490 CRLL PRTTERN<# 1,112) = : CRLL COLOR<r.#l,F) = : CRLL MOTION* #1,-5,2)- CRLL SOUND* 

-1000,-7,2) 

500 FOP 1=4 TO 7 : : CRLL SPRITE* #1, 112, F,P1+10,P2, I*~10,0)= = HEXT I = = CRLL. MOTI 

ÖN* #3 , 3 , , tt 1 , 2 , ) = = CRLL SOUND* ~ 1 000 , -7 , 3 > 

^ 1 CRLL MOT I ON< #4 , 5 , - 1 , #5 , 5 , 1 , #6 , 3 , 2 , #7 , 3 , -2 ) ■ = CRLL SOUNC< - 1 000 , -7 , 6 ) 

F.20 FOP 1*8 TO li . . CRLL SPRITE«' #1 , 1 12, F, P1 + 10,P2, I*-8,0 ) = : NEXT I = = CRLL SOUN 

Dt -100@, -7, 8) 

530 CRLL MOT I ON* #8 , 6 , -2 , #9 , 6 , 2 , # 1 , 2 , 2 , # 1 1 , 2 , ~2 , #3 , 4 , @ > = = CRLL SOUND"' - 1 900 ,-7,10 

540 FÜR 1=12 TO 15 = = CRLL SPRITE* #1 , 1 12, F,P1+10,P2, I*-5,0 >= = NEXT I = = CRLL QOU 

HD* -1000, -7, 12) 

550 f:RtL MriTION*#12,6,i,#13,3,-l,#14,3,-l,#15,3,l,#3,4,0)= = CRLL SOUND-:: -1000, -7, 

14) 

550 FÖR 1 = 16 TO 19 = = CRLL SPRITE*#I, 112, F,P1 + 10,P2, I*-3,0) = = NEXT I = = CRLL SOU 

HD* -1800, -7, 16) 

«170 CRLL MÜTION*#16,4,0,#I7,3,-1,#I8,3,1,#19,4,1)= = CRLL SOUND< -1000,-7, 18)= = T- 

T+2.20 '■•■ GOSUB 1450 = = GOSUB 1300 = = T*T+2 B 25 = = GOSUB 1458 

580 TREF=TREF+1 = = FEHL=FEHL+1 - DISPLAY RTC 1, 11 )S1ZE*3) = TREF = = DISPLAY RK24, 

11)SIZE*3) = FEHL 

590 PU=PU+1010-*FEHL*10)= = DISPLAY RK24, 23)S1ZE*6) = PU 

GR0 CALL SOUND<-1000,-7,16)= = FOR 1*3 TO 11 ! = CRLL PATTERN*#I, 120)= = NEXT I ■■ 

GOSUB 1300 

610 CRLL SOUND* -1000.-7,18)" FOR 1 = 12 TO 19 = = CRLL PATTERH*#I, 120)= « NEXT I = = 

GOSUB 1300 
620 CRLL SOUND* -1000, -7,20) = = FOR 1*3 TO 11 = = CRLL PRTTERH*#I, 124)= = NEXT I = = 

GOSUB 1300 

630 CRLL SOUNDC- 1000, -7,22)= = FOR 1 = 12 TD 19 •■ CRLL PRTTERN*#I, 124) = = NEXT I = = 

GOSUB 1300 
640 CRLL SOUND'. - 1 000 , -7 , 24 ) . ■ CRLL DELSPR I TE* # 1 , #3 , #4 , #5 , #6 , #7 , #8 , #9 , # 1 , # 1 1 , # 1 2 
, #13, #14, #15, #16, #17, #18, #19)= = GOSUB 1300 

658 T-T+4.35 == GOSUB 1450 == IF TREF=10 THEN 700 ELSE IF FEHL«25 THEN 860 ELSE 
IF T>180 THEN 890 == CRLL SPRITES #2, 108, 1 1,L1,L2) 
660 RRNOOMIZE == IF INT*RND*8)<>1 THEN 670 ELSE GOSUB 1320 == T=T+14.78 == GOSUB 

1450 = = IF T>180 THEN 890 
fi70 FOR X-30 TO 1 STEP -1.5 = = CRLL 8ÜUN0*-99,-5,X)= = NEXT X = = .T=T+2.50 = = GOSU 
B 1450 = = CRLL COLOR<1,F,1) 
680 GOSUB 1440 - CRLL RATTERN* #1,96)" CRLL LOCHTE* #1* IHK RND** 95-45+ 1 ))+45, 256 

6^0 C ALI MOT I ON< # 1 , -20 , 1 NT* RNDS30 )+95*3GN* RND- . 5 ) ) = = F= I NT< RND* 11+3)== CRLL NOT I 

riN<#l.INT(RND*-6),INTc;RND*20)+10*SGN<RND-.5))= = T=T+.8 == GOSUB 1450 == GOTO 450 

700 CRLL DELSPRITE*ALL)= = FOR 1=1 TO 10 ■: CRLL SPRITE* #1,96, IHK RND* 13 )+3, 96, 12 

8, INT< RND* 1 10 )*SGN< RND-, 5 ), IHK RND*1 10 )*SGN< RND». 3 ) ) 

710 FOR X-1400 TO 1460 STEP 32 «« CRLL SOUNDS -99, X, 9, X+4,9, X+8,9)= = NEXT X = = GO 

81 IB 1300 = = NEXT I 

720 FOR X-l TO 2 = = CRLL SOUND< 200,440, 1 ) = = CRLL SOUND* 200, 554, 1 ) = •■ CRLL SOUND-' 2 

00 , 440 . 1 ) '■ •• CRLL SOUND«:: 200 , 660 , 1 ) 

730 CRLL SOUND< 760, 880, 0,660, 5,554, 10)= = NEXT X 

740 DISPLAY AK 1 , 1 )SIZE* 28 ) = "! M !!!!!! ! GESCHAFFT MUMM!" 

750 FAR 1 = 1 TO 15 = = GOSUB 1300 == CRLL COLOR* 1 , INT* RND* 13+3 ), 1 ) = = NEXT I' = = GOT 

n 770 

?f& DT. KP! AY RK 1 . 1 WIZEt 28 )BEEP :"!!!!!!!!!! VERLOREN !!!!!!!!!!" = : FOR 1 = 1 TO 10 

< = GOSÜB 1300 = = NEXT I = = GOTO 800 

770 LE*LE+1 = = IF LE=1I THEN 800 == DISPLAY AK 24, 1 )3IZE*32 )BEEP= " ! M ! ES BEGINNT 

RUNDE !!!!!!!!!!!" = = DISPLAY RK24.-21 )SIZE< 3 ) = LE 
730 FOR 1 = 1 TO 10 == CRLL MOTION' #1 , @, C I*:-9)+-6 )= = GOSUB 1390 ■■ CRLL 80UNDC -348 
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8, I10+C I*3X. 1*2.5, 113+C 1*3), 1*2.5, 116+C 1*3), 1*2,-2, 1*2.5)= = HEXT I 

790 FOR 1 = 1 TO 4 = : GOSUB 1390 : = HEXT I = = GOTO 336 

888 DISPLAY RTC 24,1 >SIZE<29)BEEP= " ! ! ! ! NEUES SPIEL? <JXN>!!!!!" :: GOSUB 1310 

810 IF PIK ~NPU TUEN 830 

320 NPOPU 

830 DISPLAY RTCS, 17)SIZE<6)'PU • '■ DISPLAY RTC 12, 17)SIZE<6)'NPU 

840 CALL KEY<2,T,8V = GOSUB 1300 == IF S=8 THEN 840 : = IF T<>2 THEN 1279 

858 DISPLAY AT<3,3>:RPT$'::0:HR*a36>^CHR$02>ft.rCHR$<34>>,8>= = DISPLAY AK 12, 3 > •■ RPT 

*< < CHR*< 34 ::-fJ,CHR$< 136 >&CHR*< 92 ) ), 8 ) = : GOTO 320 

860 CALL DELSPRITE<RLL>" DISPLAY AK 24,1 >BEEP= " ! ! LEIDER. KEINE RAKETEN MEHR!" «. 

FOR 1 = 1 TD 10 s: GOSUB 1308 = = HEXT I 
870 DISPLAY AK24,1)BEEP<"IHRE NERVEN WAREN NICHT GUT!" ■■ ■■ FOR 1 = 1 TR in = = GflRIj 
B 1390 '■•• HEXT I =: DISPLAY AK24, 1 >BEEP> " ! ! IHR AUGENMASS AUCH NICHT!!" 
880 CRLL MRGNIFY'::2): = GOSUB 1410 ■■ '■ GOTO ?m 
890 CALL DELSPR I TE< ALL ) < = D I SPLfl Y RTC 24 , 1 >BEEP ■ " ! T I ME OUT ! T I ME OUT ! T I MF flMT » " 

FOR 1 = 1 TO 10 = = GOSUB 1300 •■ ■■ HEXT I 
900 DISPLAY AK 24, 1 >BEEP ="!! 'ACHTEN SIE AUF DIE UHR!!!" -- FOR 1=1 TO 19 «: GOSM 
B 1300 := HEXT I ■■ •■ DISPLAY RK24, 1 )BEEP' " ! !UHD TREFFEH SIE SCHNELLER!" 
910 CALL MflGNIFY<2)<: GOSUB 1410 ■■ ■■ GOTO 760 
920 FOR 1 = 1 TO 9 == CALL C0INC<#1,#3, 11,H">= •■ IF H THEN 480 
930 HEXT I 

940 CALL DELSPR ITE< #3 '>•■■■ GOSUB 1460 

950 FEHL*FEHL+i " DISPLAY AK 24, 11 >SIZE< 3 )»FEHL " T=T+1.1 «■ GOSUB 1460 «> GDS 
ÜB 1450 

960 PU=PU-I0-<FEHL*5>^ IF PU<6 THEN PU=8 •• ■■ DISPLAY RK24,23>SIZE<5> = PU •• • IF T 
>180 THEN 890 ELSE IF FEHL=25 THEN 868 ■• •• GOSUB 1460 
970 DISPLAY AK24,23>SIZE«::5> = PU ■■ ■- IF T>180 THEN 890 ELSE' IF FEHL=25 THEN 860 . ■■ 

GOTO 410 

980 U1$="0103070F19393F77FBFC7F7F2F27508880C0E0F0989CFCEEDF3FFEFEF4E40A11" * •• 1 12 
** " 00000 1 07 1 F39797FF0FF7F7F2F275088000080E0F09C9EFE0FFFFEFEF4E40A 1 1 " 

990 U3$= " 000000000007 1F79F9FF7E7D2B2750880008000000E0F89E9FFF7EBFD4E4RR 11" = : | E 
V=7 • = GOTO 358 

1000 Ul*="ni7054D5FlFBFBFlF18i0202050580088E8A0B2FAF8FDFDFA08PiA04040APiR00 H = ■ U 
2*= " 1 1 07474F 1 999B F3F 1 F24444808 1 4 1 48088E0E2F29899FDFnFR2422 1 2 1 R2R2800 " 

181.0 U3*="0147470F9F9F31311F1111222205050080E2E2F0F9F98C8CF8888R4444RPiA0R0" = * L 
FV=8 ■■ ■ GOTO 350 

1820 Ul$="1028448383C7EFFFFFFFFF7CBB542810081422ClClF3F7FFFFFFFF3EDD2R14fiR" ■ ■ (I 
?$" " 9008 1 4224 1 4 1 E3F7FFFFFF7CBB5428 1 000 1 028448282C7EFFFFFFF3EDD2R 1 488 " 

1038 U3$="0000840R1 12121 71 FBFFFF7CBB5428 10088020508884 A4A7DFFFFF3FDD2R140R" = ■ L 
EV=9 ■ ■ GOTO 358 

1840 Ul$= ,, 00080001F3078F0F0F87FB020282040E00000@80DFE8F0101PiE0DF4Pt4Pl4Pl2PI70 ,, ; ; \J 

2*= " 0800806 1 1 B070F0C8C07 1 B628284848E88800 1 86D8E0F03830E0D8464 1 282870 " 

1 058 U3$= " 004028 1 1 0B070F0808078B 1 2264488 1 C00020488D0E0F0FFiF0EP»DR4ftG4?2 11 SR" •■ ■ \ 

EV=18 > • GOTO 358 

1 068 U 1 $= " 07 1 C 1 933674FFF8F8F7F2E9B47380E00E0F8F8FCFEFEFF 1 F 1 FFEEnBRE?Bft40flfl " ■■ ' 1 1 

2*= " 07 I E 1 E3E7E7EF FE3E37F37 1 D87 1 00F00E078787C7E7EFFC7C7FE74D8E008FH00 " 

1870 U3*="071F1F3F7F7FFFF3F37F3B0E47100208E03898CCE6F2FFF1F1FEB879E20C7000" = = L 
FV=11 •■ ■ GOTO 358 

1880 Ut*="03070Fi9397F7C3FlF0ClE0000000000C0E0F0989CFE3EFCF83R78flP'flflPlfiP»flRfl" = •■ U 

2**"03070F1F397F7E3E1F0C@C0C1E000000C0E0F0F89CFE7E7CF830303078000000" 

1 090 U3*= " 03870F 1 F3D7F7F3E 1 F0C0C0C0C8C0C 1 EC0E0F@F8BCFEFE7CF83R3Ptt0303fl:WR " ■ ■ L 

EV-12 : : GOTO 358 

11A0 UI$="01 86 ICFF9C9CFF1F4701 2409228440 12806038FFE7E7FFF8E2^41P ! i42RAAlPii ::: ift2" ■ •■■ II 

2$="81061CFFCECEFFlF0721041i44012400306038FF7373FFF8E0842A0054025000" 

1110 U3$= ,l 0i061CFFE7E7FFlF4709210R41140000806038FF3939FFF8E288245004508808" = = I 
EV*13 •■ ■■ GOTO 358 

1120 Ul$="80C0E4743C3CiElF0F0D05030l0101000103272E3C3C78F8F0B0A0C080808000" = : U 
2*=" 8464F4BE9F0F0D05830 18181 0088000028262F7DF9F0B8A0C080808800000000" 
1130 U3S="i83D7FF5E5E3C IC IE 170381 8088800881 8BCFEAFA7C78383878E1 0*181 8808888" = ■ L 
FV=14 ■• ■■ GOTO 358 

1 1 40 U 1 *= " 0000880000080 1 0706878 1 088 88 00 88 0080880 00800080E860E 08000080088 88 " : : U 
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?*=" 000000000 1 020F0E0E0F030 1 000900000000000080C0F07070F0C0S000000000 " 

1 1. 30 U34= " 1 03070F 1 FFFFCFCFCFCFF 1 F0F07030 1 30C0E0F0F8FF3F3F3F3FFFF8F0E0C080 " = = L 

EV=15 : = GOTO 350 

1160 Ui*a"FlFlFlFIFF96S294B696FF7171710000C7C7C7C7FF99flBH9flB99FFC7C7C70000" : = U 

2S= " 1 C 1 C 1 C 1 CFF96B294B696FF 1 C 1 C t C0000F 1 F 1 F 1 F 1 FF99AB A9 AB99FF7 1 7 1 7 t 0000 " 

1170 IJ3*-"38383838FF96B294B£96FF3838380000E3E3E3E3FF99RBR9flß99FFE3E3E30000" : ; L 

FV-16 = = GOTO 350 

1180 CfiLL MOTIOH<#1,0,0,#2,0,0>= = CRLL SOUNDC -2000, -5, 10 ) = ■■ FÜR 1 = 1 TO 26 = = CRL 

f. P08ITI0NC#1,U3,U4)= ! IF U3>1 66 THEN U3=!66 = = GOTO 1200 ELSE U3=U3+1 -CRLL L 

0CATEC#1,U3,U4) 

1190 HEXT I 

1200 CRLL L0CRTEC#1,U3,U4)= = CRLL PRTTERNC#i , 104)= = CRLL COINC< #1 .■ #2, 16, HIT) = = I 

F HIT THEN 1248 = = CRLL SOUNDC-99,-1,0 V = XX=SGN<RND-.5) 

1210 FOR K0=1 TO 40 STEP 3 ■■ CRLL MOTIONC #1,8,K0*XXV = CRLL CO INC'' #1 , #2, 16, KON > 

■•■• IF KON THEN 1240 

1220 CRLL PR T T F R NC tt 1 . 9 6 ) : ■ CRLL. SOUND C - 20 , 5 50 + C K * 3 ) , , 66 +< KU * 4 > , , 7 70+C K0*5 ) , 

0V = CRLL C0INCC#1,#2, 1S,K0N)= = IF KON THEN 1240 

1230 CRLL PRTTERNC#1,104)= = HEXT KO 

1240 CRLL P0SITI0NC#1,U3,U4)= = CRLL MOTIONC #1 ,0,0 V = CRLL PRTTERNC #2, 1 12 ) 

1250 FOR 1=2 TO 15 = = CRLL SOUNDC -1000, -7, 1*2)*: CRLL 8PRITEC#I, 112, IHK RND* 13+3 

■> , U3 , U4 > < < CRLL NOT 1 0N< # I , I NT( RND*-2 )+- 1 , 1 NK RND*3 )+ 1 *8GNC RND- . 5 ) ) » < NEXT I 

1260 FOR 1 = 15 TO 2 STEP -1 = = CRLL DELSPRITE<#I > : : NEXT I = = GOTO 760 

1270 CALL CLERR = = END 

1280 FÜR 1 = 1. TO 70 ■■ ■• CRLL HCHRRC INKRND:*20)+1.* INT<RND*3i Hl, 128 V = CRLL HCHARCI 

NT< RND*20 )+ 1 , I NTC RND*3 1 >+ 1 , 1 36 ) = = DI SPLR Y RTC 24,6)31 ZEC 1 6 ) = " B I TTE WARTEN SIE" 

1 290 CRLL HCHflRC I NK RNDS20 >+ 1 , I NK RND*3 1 )+ 1 , 92 V = CRLL HCHflRC I NK RND*20 >+ 1 , I NT< R 

ND*31)+i,34V = CRLL HCHARC24,8, 116, 16 V = CRLL SOUNDC -88,-1, 1 V * NEXT I = = RETURN 

1300 CALL C0L0RC13,INKRND*13)+3;a,14,INKRND*13)K J .,l,8,INKRND*13>+3,l)= ■ RETUR 

N 

131.0 CRLL DELSPRITECALLV = DISPLAY AK8,3>SIZEC19 V "PUNKTESTRND = " = = DISP 



LRY RTC12,3)SIZEC19) 
1320 FOR 1=1 TO 10 • 
. 11 V = FOR X=l TO 5 



"BESTPUNKTE =' " •• RETURN 

CRLL C0L0RC#2,7V . FOR X«l TO 5 ■ •- NEXT X ■■ CRLL C0L0RC#2 

= NEXT X : = CALL SOUNDC -5, -1 , 0) = = NEXT I 
1330 CRLL CÜL0R<#2, 14)= ' DISPLAY RK8,4)S,IZEC23 V " ! ! ! KANONEN REPARATUR!!!" 
1 340 CRLL SPR I TEC # 1 , 44 , 3 , 1 65 , 256 ,0,-8)== CRLL SOUNDC -4250 ,110, 30 , -4 , 5 ) = •■ FOR 1 = 1 
TO 18 
1350 CRLL PRTTERNC# 1,132)= = FOR K=i TO 10 « = NEXT X = = CRLL PRTTERNC #1, 140)= « FO 
R X=l TO 10 = ■ NEXT X = = CALL PRTTERNC#1,44 V = FOR X=l TO 10 ■■ NEXT X = = NEXT I 
1360 CRLL MOTIONCt 1,0,0); = FOR X=l TO 30 = = CRLL SOUNDC— -20,-2,5) « = NEXT X « ■ CR 
L L COLORC #2,11)== CRLL NOT I ONC #1,0,-8)== CRLL SOUNDC -4250 ,110 , 30 , -4 , 5 ) 
1.370 FOR 1 = 1 TO 18 

1380 CALL PATTERNC# 1,132V = FOR X=l TO 10 == NEXT X == CRLL PRTTERNC #1, 140 V = FO 
R X=i TO 10 =■ NEXT X ■• CRLL PRTTERNC # 1,44 V ■ FOR X=l TO 10 ■ ■ NEXT X ■■ NEXT I 
1390 CRLL DELSPRITEC #1 ) = •■ DISPLAY RTC 8, 3 )SIZEC 25 ) = RPT$C C CHRSK 136 )8.CHR*< 92 )feCHR*< 
34)), 8): = RETURN 

1400 DISPLAY RTC 24,2)= "JOYSTICK-TASTER 1 DRUECKEN. " = = CRLL KEYC 1,T,3V - IF TOI 
8 THEN 1.400 = = CRLL CLERR : ■ RETURN 

1410 FOR 1 = 1 TO TREF - CRLL SPRITEC#I, 1+48, INKRND*13)+3,80, 128, INT<RMD*90+D*8 
GNCRND-.5), INTCRND*90+1 ):*:SGNCRND~„5) ) 

1420 CALL SOUNDC -99, INK RND* 1 400 )+330, )= = GOSUB 1309 • •- NEXT I == FOR 1 = 1 TO 2 
■■ ■■ GOSUB 1300 = = NEXT I 

1430 FOR 1=1 TO TREF == GOSUB 1300 == CRLL MOTIONC #1 , 0,0) = = CALL LOCRTEC #1 , 1*17, 
1*16)== NEXT I = = RETURN 

1440 F=INTCRND*13)+3 == CRLL COLORC # 1,F) = = RETURN 
1 450 D I SPLRY RTC 1 , 22 )S I ZEC 3 ) = US I NG " #=!+#"= T = = RETURN 
1460 CALL P0SITI0NC#1,U3,U4)= •■ IF U3>140 THEN 1180 == RETURN 
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MusioMaker 




Immer mehr Interesse finden Sound- und Musik-Pro- 
gramme. Bekanntlich steht der Apple etwas im Schatten, 
vieler anderer Home-Computer, bei denen spezielle Sound- 
Bausteine bereits eingebaut sind. 

Unser hier abgedrucktes Programm gibt nun auch dem 
Apple-Freund die Möglichkeit, Musikstücke zu produ- 
zieren. Außerdem, können alle selbstverfaßten Programme 
abgespeichert und bei Bedarf auch geringfügig verändert 
werden. Die Qualität der Akustik ist beachtlich und 
braucht den Vergleich mit anderen Computern, wie etwa 
dem VC-64 oder VC-20 nicht zu scheuen. 

Nach dem Start erfolgt eine umfangreiche Erklärung aller 
Funktionen, begleitet durch eine Demo-Musik. 

Um längere Stücke zu schreiben sollte man jedoch mindes- 
tens 32 k Ram besitzen. 

Zusätzliche Befehle: Taste »C« Speicher leeren 

Taste »/« Programm beenden 

* *X* *&» *&* *t* *&** *•& +£* *»Xf ^A +£* **& *X* **if *t* *if *&> *£+ +Af +£f »J> *A* +3j* 
*T* ^T* **T* **X* "^^ *^> *** *^^ "X* *^i "j* *^^ "^^ *^^ **^^ *^^ **^ *T^ *T^ "T^ ^^ ^^ 

* *J** « tjj* ^4> ^L» *4** < »>X j * >^ *A* *i* *^ *J^ vi* >L* *i* *X* **-L* **X* >£<* vi* WL<* «X* *A* 
**Y* *y» #j* «»j* >^v *rf+ «^> «^ #^ «^% «^% V|> **J% «^j> *^> ^> ^^ ^^ *T> ^* ^N *^ 

TEXT 

10 GOSUB 100 

20 HOME SDI ~ 500 

30 FOR I .= 1 TO 40 SA* = A$ + "&": NEXT I 

40 B* « "S<": FOR I = 1 TO 38! B* - B* + " " : NEXT I S B* « B* + »&" 

50 IN VERSE : VTAB 1: PRINT A* 

60 FOR 1=2 TO 8: VTAB I: PF: INT B*S NEXT I 

70 VTAB IS PRINT A* 

80 Dl'M N<DI) H N*<DI) ,L<BI> ,L*(DI) , V (DI ) , V* <DI ) , 0<DI> , T<23) 

90 GOTO 110 

100 POKE 771 ,173s POKE 772,48; POKE 773 , 192 : POKE 774 , 136 S POKE 775,208: FQKE 

776,4S PÖKE 777,198; POKE 778,1: POKE 779,240: POKE 780,8: POKE 781,2 

02: POKE 782,208; POKE 783,246: POKE 784,166; PO K E ' 7 85 , : POKE 786,76 

: POKE 787,3: POKE 788,3: POKE 789,96; RETURN 
110 FLASH ; VTAB 3: HTAB 12: PRINT "THE MUS IC MAKER": INVERSE 
120 VTAB 5S HTAB 33 PRINT " <C> 1984 BY KANGAROO SOFTWARE PROD" 
130 VTAB 7: HTAB 5s PRINT "PRQGRAMMED BY MARK HEENE" ■ 
140 NORMAL 

150 FOR I « 1 TO 23: READ T < I ) , L < I ) S NEXT I 
160 FOR I = 1 TO 23 

170 POKE S 255 - T < I ) S POKE 1 , L ( I ) : CALL 771 
180 NEXT I 

190 IF PEEK < -- 16384? > 127 THEN GET W*S GOTO 220 
200 GOTO 160 
210 DATA 63,64, 111,64, 103,64, 111,64, 127,64, 134,64, 127,64, 134,64,, 147,64 

9 159, 128, 134, 128, 111, 128, 134,64, 127,64, 111,64, 127,64, 134,64, 147,64, 12 

7, 128, 103, 128, 111, 128, 103, 128, 111,255 
220 VTAB 11 
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230 



250 



260 
270 
280 

290 

300 
310 

320 

340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 

490 
500 

510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 



PRINT : PF: INT : PRINT "Das war nur ein kleines Beispiel da-fuer ,was m 

an mit dem MUSIC MAKER machen kann- Man kann 1 aengere und mehrstimmig 

e Stuecke mit etwas Uebung damit schrei- ben« Die Laenge disr Note 

n geht von ganzen bis 256tel Noten«" 

PRINT "Musikstuecke koennen einen Umfang von bis zu 500 Noten haben 

, w&r\n man genug Speicherplatz hat., kann man in Zeile 20 die Vari 

afole DI erhoehen. Damit kann man groessere Stuecke schreiben«" 

GET W*: HOME 

DIM EU4),E*<14>: FÜR I = 1 TO 14S READ E < I > , E* < I > 1 NEXT I 

DATA 63,CJ84 5 D,103,E,U1 S F S 127.8. 141 , A, 153, B, 159, C, 73, C#, 94, D# H 119, F# 

, 134,e#,147 s Ä#i,169,C# 

FGR I « 1 70 8: VT AB 

1,255. CALL 771 

VTAB 4S HTAB 3S 

HTAB 5: 

HTAB 

HTAB 

HTAB 

HTAB 



VTAB 

VTAB 

VTAB 

VTAB 

VTAB 

POKE 

VTAB 

REM 

VTAB 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

ben" 

IF PL 

VTAB 



4: 
41 

4: 
4: 

4» 



9: 

US 

13: 
17: 



5: HTAB 

NEXT I 

PRINT E*<I) : 

PRINT E*(I> 3 

PRINT E*(I) : 

PRINT E*<I) 

PRINT E*<I) : 

PRINT E*(I) 



I * 



PRINT E*(I) : POKE 0, 



E < I) : POKE 



GOSUB 360: I = 

GOSUB 360: I » 

GOSUB 360: I " 

GOSUB 360 : I 



GOSUB 
GOSUB 

CALL 



360: 

360 : 
771 S 



I + l 
I + 1 
= 1 + 1 
= 1 + 1 
= 1 + 1 
GOTO 380 
RETURN 



l: PRINT 
EEG IN 

7: PRINT 
"H 



"<l/2> GCTAVE 1 ' 



"W 



"Q 
"E 
"S 
"T 
"F 
"0 



GANZE NOTE" 

HALBE NOTE" 

VIERTEL NOTE" 

ACHTEL " 

SECHZEHNTEL" 

Z WE I UNDDRE I SS I GSTEL " 

V I ERUNDSECHZ I GSTEL " 

HUNDERT ACHTUNDZW AN Z I GSTEL " 
. « ZWEIHUNDERTSECHSUNDFUENFZIGSTEL" 
PRINT "Die Buchstaben werden zusammen mit 



<CTRL> eingege 



THEN WA IT - 1 6384 , 1 28 : POKE 
:lr. PRINT "Waehrend der Eingabe 

ecken von < ESC > sehen. " 

WA IT - 16384,128: GET W* 

HOME :PL ~ 1 



- 16368,0: GOTÜ 
kann man diese 



>0 



Seite mit dru 



POKE : 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

WA IT 

IF W* 



14,, 5 

" < E SC > HILFE < I > EINGABE < T > 
1 ' < L > LIST < S > SA VE < P > L AD 



"<Q> EINGABE UNTERBRECHEN 

"C,D,E,F :i G,A,B « NOTEN 8< 
"# « ERHOEHEN" 

s PRINT 

"->"S;: FLASH S PRINT " "5: 
- 16384,128: GET W*: HTAB 
« CHR* (27) THEN TEXT : 



< X > 



EDITIEREN" 

TEXT" 

SPIELEN" 



ERNIEDRIGEN 



NORMAL 
3: PRINT " " 
HOME : GOTO 380 



IF 
IF 
IF 

IF 
IF 
IF 
IF 
IF 
IF 



W* 
W* 

W$ 

w* 
w* 

w* 
w* 
w* 

w* 



"I" 

HJ., 

II I II 

"S" 

"/" 

"Q" 
ii p» ii 

"X" 

,.p„ 



THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 



GOTO 600 

PRINT : , PRINT : 

PRINT "ö OKTAVE 



GOTO 

GOTO 

GOTO 
1580 

GOTO 
590 
1800 
1670 
1710 

PRINT 
ö NOTE 



730 

1280 
1490 

1860 



ö LAENGE ö NUMMER ö 
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750 
760 


PRINT " . 

PRINT "ö ' ö~ ~ö ' """ ö ""' ~ ~ü". 




770- 1 


H « N + i:RN « RN +■ 1 




780 


RR INI "ö ö ö ö "N" ö" 5 




790 


HTAB 6: GET 0* 




800 


IF 0* =-" "Q" THEN N - N - 1 : RN « RN ~ 1" GOTO 590 




810 


IF 0* < "1" OR 0$ > "2" THEN 790 




820 1 


D(N> = VAL (O*): HTAB hl PRINT 0(N); 




830 


HTAB 15; GET N*(N) 




840 


IF N*(N) < "A" OR N*(N) > "0" THEN 830 




850 


HTAB 1 5 S RR I NT N* ( N ) ? 




860 


HTAB 16: GET V*(N) 




870 


IF V*(N) < > "#" AND V*(N> < > "&" AND V*(N) < > " " THEN 


860 


880 


HTAB 1 6 : PR I NT V* ( N ) 5 




890 


HTAB 22: GET L* 




900 l 


._ = ABC (L*) : IF L < > 23 AND L < > 8 AND L < > 17 AND L < 


> 5 AND 




L < > 19 AND L < > 20 AND L. < > 6 AND L < > 15 AND L < 


> 12 THEN 


890 
910 L*<N)-= CHR* (L + 64):; HTAB 22: PRINT L*(N) 




920 ! 


\|$ = N*<N):V* = V*<N):L* = L*(N> 




930 


IF VS « " . " THEN 960 




940 


IF V* « "#" THEN 1040 




950 


IF V$ = "&" THEN 1 100 




960 


IF N$ « "C" AND 0<N) ~ 1 THEN N(N) - 63: BOTO 1160 




970 


IF H% « "C" AND 0(N) =2 THEN N<N) = 159: GOTO 1160 




980 


IF N* ~ "D" THEN N(N> « 84: GOTO 1160 




990 


IF N$ = "E" THEN N<N) = 103: GOTO 1160 




1000 


IF N$ « "F" THEN N(N) « 111; GOTO 1160 




1010 


IF N$ = "B" THEN N(N) = 127: GOTO 1160 




1020 


IF |\j* » »a» THEN N(N> « 141: GOTO 1160 




1030 


IF N$ - "B" THEN N<N) = 153: GOTO 1160 




1040 


IF N* = "C" AND 0(N) « 1 THEN N(N) = 73: GOTO 1160 




1050 


I-F N* = "C" AND 0(N> = 2 THEN H(N) ■■= 169: GOTO 1160 




1060 


IF N* = "D" THEN NCN) = 94: GOTO 1160 




1070 


IF N* - "F" THEN MW) = 119; GOTO 1160 




1080 


IF N* = "G" THEN N<N) = 134: GOTO 1160 




1090 


IF N* * "A" THEN N<N) = 147: GOTO 1160 




1100 


IF N* « "D" AND 0<N) = 1 THEN NCN) = 73: GOTO 1160 




1110 


IF N$ ™ "D" AND 0<N) = 2 THEN N(N) = 169: GOTO 1160 




1 1 20 
1130 


IF N* = "E" THEN N(N) = 94: GOTO 1160 
IF N* = "G" THEN N<N) = 119: GOTO 1160 




1140 


IF N* : = "A" THEN N(N) = 134: GOTO 1160 




1 1 50 


IF N* = "B" THEN H(N) = 147: GOTO 1160 




1160 


IF L =" 23 THEN L<N) ~ 255: GOTO 1250 




1 1 70 


IF L = 8 THEN L(N) =* 128: GOTO 1250 




1180 


IF L « 17 THEN L<N> = 64: GOTO 1250 




1190 


IF L = 5 THEN L(N) « 32: GOTO. 1250 


_ 


1200 


IF L « 19 THEN L(N) « 16: GOTO 1250 




1210 


IF L - 20 THEN L<N) = S: GOTO 1250 




1220 


IF L - 6 THEN L(N) = 4: GOTO 1250 




1 230 


IF L - 15 THEN l (N) = 2: GOTO 1250 




1240 


IF L = 12 THEN L(N) « l: GOTO 1250 




1 250 


POKE 0,255 ■- H<H)l POKE 1 ? L<N): CALL 771 




1260 


IF ED THEN 1470 




1270 


GOTO 770 




1280 


HOME 




1290 


PRINT : PRINT :ED = 1 




1300 
1310 


INPUT "<EDIT> ZEILENNUMMER : " i LE 

PRINT "ö ö ö ö "LE" ö"5 




1 320 
4P 


HTAB. 6: PRINT D (LE) 5 : .HTAB 15: FR. TNT N* (LE) V* <LE) ; : HTAB 22: 
*<LE) 5 


PRINT L 
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1330 HTAB 6: BEI 0* 

1340 IF 0* < "1" OR O* > "2" THEN 1330 

1350 D<LE) = VAL <ö*) 

1 360 H T AB 6 : P R I N T ( L E ) 5 

1 3 7 HT A B 1 5 : GET N * ( L E ) 

1380 IF N*<LE) < "A" OR IM* (LE) > "G" THEN 1370 

1 390 H TAB 1 5 : PRINT N* < L E ) 5 

1 4(750 HT AB 1 6 2 GET V* < LE ) 

1410 IF V$UE) < > "#" AND V*<LE) < > "S<" AND V*<LE> < > " " THEN 1400 

1 420 HT AB 1 6 : PR I NT V* ( LE ) ; 

14~:;0 HTAB 22; GET L* 

14 4« L - "ABC <L*): IF L < > 23 AND L < > 8 AND L < > 17 AND L < > 5 AND 
L < > 19 AMD L '< > 20 AND L < > 6 AND L < > 15 AND L < > 12 THEN 

890 
1450 L*(LE) = CHR* (L + 64): HTAB 22: PRINT L*<LE> 

1460 N = LE: BOTO 920 

1470 PRINT : PRINT "MEHR EDITIEREN ?"?: GET W*: IF W* « "N" THEN ED = 0: PRINT 

: GOTO 600 

1480 GOTO 1290 

1 490 HOME 

1500 PRINT : PRINT 

1510 IF RN « THEN PRINT : PRINT "NOTEN SPEICHER LEER": GOTO 590 

1520 FOR I « 1 TO RN 

1530 PRINT "ö ö ö ö " I" ö" ; 

1540. HTAB 6: PRINT < I > 3 : HTAB 15: PRINT IM* < I > V* < I > 5 : HTAB 22: PRINT L* < I 

1550 } IF PEEK < - 16384).. > 127 THEN GET W*: WA IT - 1 6384 , 128: GET W* 

1560 NEXT I 

1570 PRINT ; PRINT "FERTIG...": GOTO 590 

1580 HOME : PRINT : PRINT 

1590 INPUT "<SAVE> TEXT NAME:" 5 TN* 

1600 PRINT : PRINT CHR* (4> "OPEN"TN*" . MM" 

1610 PRINT : PRINT CHR* (4) "WRITE"TN* M - MM" 

1620 PRINT RN 

1630 FOR I = 1 TO RN: PRINT 0<I); PRINT NU): PRINT N* ( I ) : PRINT V<I): PRINT 

V* ( I ) : PRINT L ( I ) : PRI NT L* < I ) 

1640 NEXT I 

1 650 PR I NT : PR I NT CHR* < 4 ) " CLOSE " 

1660 GOTO 590 

1670 HOME : PRINT : PRINT : FOR I = 1 TO RN 

1680 POKE 0, 255 - N ( I ) : PDKE 1 , L ( I ) S CALL 771 

1690 NEXT I 

1700 GOTO 590 

1710 HOME : PRINT : PRINT 

1720 INPUT "<LOAD> TEXT NAME : " ; TN* 

3.730 PRINT : PRINT CHR* (4) "READ "TN*" . MM" 

1740 INPUT RN .. 

1750 FOR I = 1 TO RN 

1760 INPUT < I > , N ( I ) , N* ( I ) , V ( I ) 9 V* ( I ) , L ( I ) , L* < I ) ■ 

1770 NEXT I 

1780 PRINT : PRINT CHR* < 4) "CLOSE" 

1790 GOTO 590 

1800 INVERSE : PRINT "ALLES LOESCHEN ?": WA IT - 1 6384 , 128: GET W* 

1810 NORMAL 

1820 IF W* = "N" THEN 590 

1830 FOR I = 1 TO RN:0(I) « 0:N<I) = 0:L(I> = 0:N « 01 NEXT I 

1840 RN = 

1850 GOTO 590 

1860 INVERSE : PRINT "BIST DU SICHER ?"; WA IT - 16384,128: GET W*: NORMAL 

: IF W* = "J" THEN TEXT : HOME : END 

1870 GOTO 590 
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Mission Adler 



In diesem Spiel werden Sie zum Piloten eines Bomber's. 
Ihre Aufgabe ist das Vernichten feindlicher Raketen-Ab- 
schußbasen. Dies ist aber nicht so einfach, denn die Steue- 
rung Ihres Bomber's ist ausgefallen. Ein langsames Ab- 
sinken ist nicht zu vermeiden. Die Gefahr von Mission 
»ADLER« wird durch das Vorhandensein vieler Wolken- 
kratzer zusätzlich gefährdet. Oft kann nur durch den 
gezielten Abwurf einer. Bombe ein Absturz verhindert 



werden. Gelingt Ihnen die Vernichtung der Raketen-Ab- 
schußbasis so beginnt der nächste Level mit einem neuen 
Bild. Ihre Mission ist beendet wenn der 6. Level erreicht 
ist. Beim Abwerfen einer Bombe sollten Sie darauf achten, 
daß Ihr Flugzeug nicht zu nah am Aufschlagpunkt ist und 
ebenfalls explodiert. In einer Notlage gibt es auch die Mög- 
lichkeit mit dem Fallschirm abzuspringen. Überleben Sie 
den Absprung, so erhalten Sie ein neues Flugzeug und Ihre 
Bomben- Anzahl erhöht sich um 10. Das Programm be- 
nutzt die HGR-Grafik mit Shapes. Gesteuert werden kann 
über Tastatur. 



MISSION ADLER 



t l il .' J 



^K 


j i 1 1 i 


■ IUP. 


li il ■ 


II II 1 


■ i ii i 


1 1 1 i i 


■ III V 


1 1 J i i 


■ I ii i 



Hill 

ii ii r 



Hill 



■ IUI 
II III 

■ IUI 

I I II I I 




%t MI 



Hill 
Ulli 



Hill 



II II 1 



^^^^^^^M 




■ ifn 


■ in ■ 




ii 1 1 ■ 




Ulli 




II III 




II III 




t... 




17 II 1 




'1 II 7 




IIUI 




il II 1 


l 



10 

20 
30 
40 
50 

60 

70 
80 
90 
100 

110 
120 
130 

44 _ 



REM 
REM 
REM 
REM 
REM 
DATA 



MISSION ADLER 

<C> F.BRALL 1984 

APPLE II VERSION 
#•*'»**#*****■**##***# 

5,0,12,0,67,0,81,0,202,0,1,1,228,28,28,28,28,63,63,63,63,63,63,6 
3,63,63,28,231,231,28,28,63,63, : 118, 54,54, 62, 46,54*, 46i 45 

DATA 45, 45, 45, 45, 45, 37, 128, 129, 45, 45, 45, 149, 218, 219, 27, 45, 45, 45, 45, 45 
,45,45,45,45,45,0,46,38,37,39,37,63,38,44,37,63,52,45,60,0 

DATA 63, 63, 63, 55, 45, 45, 45, 62, 63, 55, 45, 53, 63, 46,45, 36, 53, 46, 36, 53, 54 
,54, 37, 36, 36, 53, 54, 37, 36, 53, 46, 36, 53, 46, 36, 45, 60, 63*, 63", 63' 

DATA 63,63,44,45,45,45,45,45,60,63,63,63,63,39,63,63,39,45,45,45,46,4 
5,45, 45_, 60 , 63 , 63 ,39,63,63,63,63,39,45,45,45, 45 , 37 , 63\ 63 ,63 
DATA 63,47,37,45,45,45,45,54,46,45,45,45,60,63,63,39,45,45,37,63,63, 
39 , 63 9 63 , 63 , 63 , 44 , 45 , 45 , 45 , 45 , 46 , 45 , 60 , 63 , 39 , 63 , 63 , 63 , , 36 
DATA 44, 53, 54, 36, 60, 36, 36, 53, 54, 63, 36, 52, 63, 45, 45*, 45 *, 63, 39, 36, 61, 36, 
36, 36, 36, 63, 30, 247, 30, 30, 45, 45, 45, 45, 45, 45, 229« 28, 28, 28, 55, 54 
DATA 45,37,63,60,63,55,63,62,45,45,52,6,0,36,36,36,36,36,36,36,36,36 
,36,36,36,36, 12, 12, 12, 14, .1.4, 14,54,54,54,54,54,54,54,54,54 

DATA 54,54,54,46,37,36,36,28,54,54,54,62,45,222,219,219,3,56,36,36,3 
6,12,54,54,54,45,45,45,62,63,119,73,73,73,1,32,36,36,36,36,36' 

' 1 1 — Computronrc 
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48 AND PEEK (234) 



1 40 DATA 36 , 60 9 63 , 63 , 44 „ 45 ? 45 ;i 36 5 36 , 36 , 36 , 36 „ 36 , 63 :i 63 3 63 „ 45 , 45 , 3 
45, 45, 54, 54, 54, 54, 54, 54, 54, 54, 54!, 54=, 54, 54, 54, 54, 54, 6, 0, 

150 TEXT : HOME : PRINT " *#***#■* MISSION ADLER **##**#" 

1 60 FR I N T t P R I N T II P R J. N T ' ' I H R A UF T R A G L AU T E T C ' ' 

170 PRINT : PRINT "VERNICHTUNG ALLER RAKETEN BASEN ! " 

180 PRINT !I PRINT II PRINT "TASTE SPACE « BOMBE ABWERFEN" 

190 PRINT II PRINT "TASTE F « ABSPRINGEN" 

200 PRINT i; PRINT S PRINT "TASTE DRUECKEN" 

210 GET E* 

220 FOR I = 16384 '10 16384 + 366: READ DAS POKE I ;i DAS NEXT 

230 POKE 232,0; POKE 233,, 64 

240 BD - 100s REH BOMBEN 

250 NBR : HCOLOR« 3s SCALE- 1 : ROT- 

260 BI = BI + 1 

270 HOME II VT AB. 22 S PRINT "LEVEL. "BI 

280 S2 -~ 160S GOSUB 470 

290 HX ~ 0SVX ™ 0;BH "= 0:BV ■■- 

300 XX = 10;: Y% ~ 15: FI == : 2NL = 

310 XDRAW 1 AT X%„YXS GOTO 350 

320 XDRAW 1 AT XX, Y% 

330 XDRAW 1 AT HX,VX 

340 «K = PEEK (49200) 

350 IF FI « 1 THEN IF PEEK (234) < 
(234) < > 10 THEN 1190 

360 HX ™ XX: VX ~ YXsFI - 1 

370 XX : = XX + 4 

380 IF XX > 278 THEN XX = 0SYX = YX +■ 1 

390 TA - PEEK (49152): REM TASTE 

400 PP = PEEK (49168) 

410 IF TA : ™ 198 THEN 1360 

420 IF BO < 1 THEN 440 

430 IF TA - 160 THEN BX ~ 1 II BX ~ : HX - 3SBY 

440 IF BX - 1 THEN GOSUB 970 

450 IF NL - 1 THEN 250 

460 GOTO 320 

470 REM BILD ZEICHNEN 

480 REM 'VARIABLE BI = BILD 

4 9 N B 1 8 S U B 5 2 , 5 9 , 6 60 , 7 3 , 800 , 8 80 

500 RETURN 

510 STOP 

520 H --70SP « s SOS ÜB 1510 

530 H '■■-- 80 IIP ■"■ 30S GOSUB 1510 

^40 h = 50S P = 70: GOSUB 1510 

550 H ™ 130;; P = 160 s GOSUB 1510 

560 Sl » 120: DRAW 5 AT 31,32 ' 

570 H •- 8011 P ~ 235: GOSUB 1510 

580 RETURN 

590 H ~ 80 SP = 10: GOSUB 1510 

600 H » 20 SP - 50S GOSUB 1510 

610 H » 90S P = 90 S GOSUB 15 '10 

620 H - 11 3 SP = 150S GOSUB 1510 

630 Sl ~ 200S DRAW 5 AT Sl, 32 

640 H --- 50 SP ■-- 240S GOSUB 1510 

650 RETURN 

660 H -~ 20 SP ~ 40S GOSUB 1510 

670 Sl = 15s DRAW 5 AT S1,S2 

680 H ^ 100 SP = 80S GOSUB 1510 

690 H = 70 SP ='150: GOSUB 1510 



y-y y^ 



AND PEEH 



VX ■+• 8s BO 



ran - 1 
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700 H'= 130 SP » 200 2 GOSUB 1510 

710 H — 55 :P : ~ 240" GOSUB 1510 

720 RETURN 

730 H « 110SP « 5: GOSUB 1510 

740 h ss 144 sp = 42: GOSUB 1510 

750 Sl - 90: DRAW 5 AT SJ. , S2 

760 H « 80 IIP = 120 II GOSUB 1510 

770 H ~ 140: P = 200S GOSS ÜB 1510 

780 H "- 144 HP ~ 240 S GOSUB 1510 

790 RETURN 

800 H •--" 144 SP ■- 1:- GOSUB 1510 

810 H - 1445 P -" 40: GOSUB" 1510 

820 Sl == 00: DRAW S AT Si,S2 

830 H : " 144: P :::: 125: GOSUB 1510 

B40 H = .1.44: P - 160: BOSUB 1510 

850 H - 144: P « 200: GOSUB 1510 

860 H - 144 SP ~ 240: GOSUB 1510 

870 RETURM 

880 REM ALLE LEVEL * S DURCH 

890 TEXT Sl HOHE 

900 PR I NT " ***»**##*#*#**##******************#*#**■* " 



PRINT " 

PRJ.NT " 

PRINT " 

PRINT : PRIMI 



910 PRINT 

920 PRINT 

930 PRINT 

940 PRINT 

950 PRINT 

: PRINT S PRINT 

960 END 

970 REH BOMBE BEWEGEN 
980 Kl< ^ PEEK < 49200) 

990 V'TAB (23): PRINT " 
1000 VTAB (23): PRINT "BOMBEN: "BD 
101.0 IF BH < OR BH > 279 TUEN 1030 
1 2 H COL OR - : DR A W 2 A T B H , B V : H C OL OR ~. 
1030 IF BX < OR BX > 279 THEN 1050 
1040 DRAN 2 AT BX , B Y 

1050 BH - ;s BXlBV = BY 

1060 BX : = BX + l: IF BX 

1070 BY ■•-■ BY + 21! IF BY 
1080 IF PEEK (234) < 
1 090 RETURN 
1100 REM BOMBE TRIFFT 
1110 HCGLÜR« 0:BX ™ 0:BY ~ BY 
1120 IF BX > 279 THEN BX - 279 
1130 IF BX < THEN BX « 
1.1.40 DRAW 3 AT BX ? BY 
1150 HCOLOR- 3: DRAW 5 AT S1 ? S2 
1160 IF PEEK (234) < > 190 THEN NL = 1 

1170 K!< ~ PEEK (49200) ; KK - PEEK (49200) 
1.1.80 RETURN 
1190 REM ABSTURZ 
1200 PRINT CHR* (7) ü 
1210 FOR I - TO 279 STEP 30 
1 2 20 H C L OR ss 3 ; HP L O T X X , Y X T 
1230 NEXT I 

1240 FOR I ■- TO 279 STEP 30 
1 2 5 HP L O T X % , Y 7, T O ' 1,16 
1260 NEXT I 



MISSION A D L E R" 

WURDE " 
ERFOLGREICH" 
ABGESCHLOSSEN" 
PRINT "SIE WERDEN ZUM ADMIRAL BEFOERDERT ! ! ! " 



274 THEN BX «■ 5 
170 THEN BX - 
5 THEN 1100 
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1270 FÜR I •» 1 TO 3000 : NEXT I 

1280 TEXT : HOME 

1290 PRINT : PRINT * PRINT "SIE BEKOMMEN DIE EHREN MEDAILLE" 

1300 PRINT ; PRINT " MIT DER AUESCHRIFT" 

1310 IN VERSE 

1320 PRINT : PRINT " "IM KAMPF GEFALLEN" 

1330 NORMAL 1! PRINT ; PRINT : PRINT " a PRINT "NOCH EIN VERSUCH 

1340 SET E*: IF E* - "J" THEN RUN 

1350 END 

1 360 REM F ALLSCH I RMSPR I NGER 

1370 XDRAW 1 AT HX,VX 

1380 HCOLOR= 01 DRAW 2 AT BH,BVS HCOLOR= 3 

1390 YX - : YX + 20! XX -XX •■-■ 10 

1400 DRAW 4 AT XX, YX 

141.0 IF PEEK (234) < > 21 TUEN 1190 

1420 HX - XX! VX - YX 

1430 YX = YX + 1 

1440 PF- ss INT < RND (1) * 2) 

1450 IF PP « THEN XX « XX - 1 

1460 IF PP-= :!. THEN XX = XX + 1 

1470 HCOLOR™ 0: DRAW 4 AT HX,VXS HCOLOR" 3 

1480 IF YX > 160 THEN BO - BO + 10! SOTO 290 

1490 GOTO 1400 

IS 10 REM WOLKENKRÄTZER ZEICHNEN 

1520 REM VARIABLE H = HOEHE 

1530 REM VARIABLE P ~ HORIZ- POSITION 

1540 FOR Q - 1 TO 4:H : - H - 1 

1550 HPLOT + Pf, 170 - H TD 33 + p .. 170 ~ H 

1560 NEXT 

1570 FOR Q = 1 TO 4sH - H - 1 

1.580 FOR T ~ TO 2*U ™ T * 12 

1590 HPLOT + U ••!•• P, 170 » H TO 3 + U + P, 170 - H 

1600 HPLOT 7 -i- U + P, 170 -- H TO 9 '+ U •+• P, 170 - H 

1610 NEXT T,Q 

1620 FOR Q = J. TO 4:H = H - 1 

1630 HPLOT + P„170 -■■ H TO 33 + P s 170 - H 

1640 NEXT Q 

1650 IF 170 - H > 165 THEN RETURN 

1660 IF 170 - H > 150 THEN 1620 

1670 GOTO 1540 TN ■_. , 
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Kaiende 



Beschreibung des Kalenderprogramms 



Nach dem Starten des Programms erscheint das Titelbild 
auf dem Bildschirm. 

Die Uhrzeit wird mit einer 6-stelligen Zahl eingegeben 
(z.B. 121030). Danach ist das Datum als 10-stellige Zahl 
einzugeben (z. B, 0101 1984). 

Es wird nun das Menue abgebildet. Man kann jetzt mit 
Hilfe der Tasten 1 bis 5 eines der fünf Teilprogramme 
aufrufen. 

Teilprogramm 1: Monatskalender 

Das Teilprogramm MonatskaLender berechnet ein 
Kalenderblatt für einen beliebigen Monat in einem belie- 
bigen Jahr. Hierzu sind der Monat in Großbuchstaben und 
das Jahr als 4-stellige Zahl einzugeben. Mit dem Kalender- 
blatt werden auch die in diesem Monat vorkommenden 
Feiertage aufgelistet. 

Nach Fertigstellung des Kalenderblattes werden Uhrzeit 
und Datum eingeblendet. Mit drücken der Taste »0« wird 
ins Menue zurückgesprungen, mit Taste »1« das Teilpro- 
gramm wiederholt. 

Die Einblendung von Datum und Uhrzeit sowie die 
Tastenfunktion gelten auch für die anderen Teilprogramme. 



Teilprogramm 2: Feiertage im Jahr 

Das Teilprogramm Feiertage im Jahr berechnet die wich- 
tigesten Feiertage eines Jahres. 

Das gewünschte Jahr muß als 4-stellige Zahl eingegeben 
werden. Es werden nun die Feiertage mit zugehörigem 
Datum und Wochentag ausgegeben. 

Teilprogramm 3: Wochentagsberechnung 

Das Teilprogramm Wochentagsberechnung berechnet 
den Wochentag eines beliebigen Datums. 
Das gewünschte Datum ist wie in der im Programm gezeig- 
ten Form einzugeben. 

Teilprogramm 4: Distanzberechnung 

Das Teilprogramm Distanzberechnung berechnet die 
Distanz zweier Daten in Tagen. 

Die beiden Daten sind, wie in der im Programm gezeigten 
Form, einzugeben. 

Teilprogramm 5: Weltzeiten 

Das Teilprogramm Weltzeiten gibt eine Reihe von Städten 
und ihre zugehörige Uhrzeit aus. Leider konnte auf gültige 
Sommerzeiten keine Rücksicht genommen werden. 
Um von diesem Teilprogramm zurück ins Menue zu 
springen, genügt es, eine beliebige Taste zu drücken. 



*%&* *$•" *&» ^>* *fc ^1*" *X* +&* *t/" ^1* *l* *!* *&" *&* *&* ^L* %£*• %t» *L* *t" *]# %&** ^** %{•» *$•» *&» *■!*• *L* *£»• *<£«* *S* *&* St* *&? *& *& *& *4^ **L* »4* *&? *X* *£? *£* *1> 
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Ka I enderprogramm fuer H2-700 



Erstellt Im flaerz 1984 



Uerfasser ' 

fl I chae ! Gärtner 

Sternstr . 7 

8063 Ode Izhausen 



100 REM 

'1 1 9 REM 

120 REM 

130 REM 

140 REM 

150 REH 

160 REM 

170 REM 

188 REM 

190 REM 

200 REM 

210 REM 

220 COLÜR , ,7,0:CLS 

230 DIU F$Cl73,W$C73,r1$C123,QU23,TAC173 

S M0C17:,TN*C16D,TNC16D S TS*C16D,EC16: 

240 FOR SL=1 TO 17:READ F$CSL3 -HEXT SL 
7:READ W$CSL3 :NEXT SL 
12:READ (1$CSL3 =NEXT SL 
12:READ QCSL3 :NEXT SL 
16:READ TN$CSL3,TNCSL3 :N 



250 


FOR 


SL=1 


T0 


260 


FOR 


S.L=1 


T0 


270 


FOR 


SL=1 


T0 


280 


FOR 


SL=1 


T0 


EXT 


SL 







290 GOSUB 2430:CONSOLE 1,22,1,37 
300 CURSOR 1 1, 1 :PRINTC0j7r Ka. I enderpros 
ramm " :PRINT[0,73 TfiBCIH;" fuer den 
" :PRINTC0,7] TABC1 13;" SHARP 112-7 
00 

310 PRINT"ffl SHARP-BASIC Uersion 1.0 
A" 

320 yi $= ,, s=============================== 

=======" :Y2*=" : ~ 

1. :Y3*="E 

.» ;Y4$=" 



330 PRINT Y1$:PRINT TABC 113 5 "Anuuendungsb 

ere Ich :" :PRINT TABCll3;"yon 1583 bis 220 

M :PRINT Y1* 

340 . CURSOR 1, 19=PRINT Y2$ 

350 CURS0R1, 21 SPRINT" CC3 1984 Hlchae! G 

o.rtner Software" 

360 CURS0R3, 15=INPUT "Geben Sie die Uhrz 

elt ein: " ;TIME*:IF TinE$="90" THEN 380 

370 TI$=TiriE$ 
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380 CURS0R3,17:INPUT "Geben Sie das Datu 

m ein 2 " ;DA$ " ■ 

390 T=UALCLEFT*CDA$,23 3:M=UALCMID*CDA$,3 

,233 :J2=UALCRIGHT$CDA$,433 

400 IF CT<13 + CT>313 + Cf1<13 + CI1>123 + CJE<198 

43 THEN' 380 

410 GOSUB 2240:HT=TX 

420 CLS^CURSOR 1 5, 1 :PRINTC0, 71" Kalender 

430 CURSOR 1,3-*PRINT Y2$ 

440 PRINT TABC53;"Auswahl I Ute der Teilp 

rog ramme" : PRINT Y3* 

450 PRINT TABC53;"! fuer Monatska f ender 

":PRINT TABC53+"S2 fuer Feiertage in Ba 

yern" 

460 PRINT TABC53;"ffl3 fuer Wochentagsber 

echnung" SPRINT TABC53;"ffl4 fuer DUtanzb 

ere^hnung": PRINT TABC53;"S!5 fuer Weltze 

iten" :PRINT Y3$ 

470 PRINT TABC53 ;CHR$C1273 ; " Taste 1 - 

5" 

480 -GET Q$:IF Q*=" " THEN GOSUB 2470 ^GOTO 

480 

490 IF UALCQ*3<1+UALCQ#3>5 THEN 480 

500 CLS:0N UALCQ$3 GOTO 510,900,1060,122 

0,1430 

510 REM Monatska lender 

520 N=0:CLS:PRINTC0,72 TABU 53;" Kaiende 

530 CURSOR V,4:PRINT Y2$ 

540 CURSOR 4,3:lNPUT"Monat : " JMN$ 

550 FOR SL=1 TO 1 2 :IF MN$=M$CSL3 THEN 57 

0=NEXT SL 

560 NEXT SL:G0T0 540 

570 II 1=Si_: CURSOR 25, 3 : INPUT"Jahr : " JJ2 

580 IF CJH<15833+CJE>22003 THEN 570 

590 GOSUB 1590 

600 CURSOR 4, 15:PRINT"Fe iertage und k irc 

h liehe Feste" :PRINT Y2$ 

610 CURSOR 6,6:PRINT[1,73"So":CURS0R 10, 

6:PRINT"rio Di Mi Do Fr Sa" 

620 CURSOR 4, 7 SPRINT "— ' 



630 T=1 :(1=m : GOSUB 2240 =R=TX-INTCTX/73*7 
:QC23=28 

640 IFCJE/4=INTCJ2/4 3 3*CJ2/1-00OINTCJE/1 

003 3+CJ2/400=INTCJ2/4003 3THEN QC 23=29 

650 X=1:I_=8:F0R R=R TO 6:G0SUB 680=X=X+1 

:NEXT R 

660 FOR L=9 TO 13:F0R R=0 TO 6:60SUB 680 

•IF X=QCI113 THEN 750 

670 X=X+1 :NEXT R:NEXT UGOTO 750 

Computronic .^ _^^_^^— 



680 IF R=0 THEN 720 

690 FOR SL=1 TO 1 7 :IFCM0CSL3=M1 3*CTACSL3 

=X3 THEN 720 

700 NEXT SL 

710 CURSOR 6+R*4,L.:PRINT USING"##" ;X:RET 

URN 

720 XL=LENCSTR$CX33:IF XL=2 THEN 740 

730 CURSOR 7+R*4 3 i-:PRINT[0,7JUSING"#"SX: 

RETURN 

740 CURSOR 6+R*4,L:PRINTC0,73USING"##"jX 

^RETURN 

750 FOR SL=1 TO 17 

760 TA*=STR*CTACSL3 3 :MO$=STR*CriOCSLJ3 
770 IF LENCTA*3=1 THEN TA*="0"+TA* 
780 IF LENCM0$3=1 THEN MO$="0"+MO* 

790 tamq*=ta$+'\ "+no* 

800 IF M0CSL3=m THEN CURS0R2, 17+N SPRINT 

FSCSL3 JTABC31 3 ;TAMO$ :N=N+1 
810 NEXT SL 
820 FOR SL=1 TO 17 
830 IF I10CSL3=I11 THEN 868 
840 NEXT SL 

850 CURSOR 1,20 SPRINT" In .diesem Monat si 
nd keine Feiertage" 
860 GET Q$:IF Q$="" THEN GOSUB 2470= GOTO 

860 
870 IF 'Q*= ,, l" THEN 510 
880 IF Q*="0" THEN 420 
890 GOTO 860 

900 REM Feiertage fuer Bayern 
910 CLS:CURSOR 1 5, 1 :PRINTC0, 73 " Kalender^" 

920 CURSOR 2,4:PRINT Y4$ 

930 CURSOR 5, 3:INPUT"Fe iertage fuer das 

Jahr "JJE 

940 IF CJE<15833+CJ2>22003THEN 930 

950 PRINT :GOSUB -1590 

960 FOR SL=1 TO 1 7 =TA$=STR$CTACSL3 3 :M0$= 

STR$CMOCSL33 

970 IF LENCTA*3 = 1" THEN TA$="0*'+T-A$ 

980 IF LENCM0$3=1 THEN MG$="0"+MO$ 

990 TAMO$=TA$+". "+M0$:T=TAtSL3 :M=M0CSL3 : 

GOSUB 2240:AS=TX-INTCTX/73*7+l 

1000 PRINT F*CSL3STABC293;TAriO*jTABC353 J 

LEFT$CU*CAS3,2"3 , 

1010 NEXT SL 

1020 GET Q$:IF Q$="" THEN GOSUB 2470:GOT 

1020 

1030 IF Q$="1" THEN 900 

1040 IF Q$="0" THEN 420 

1050 GOTO 1020 

1060 REH Uochent agsberechnung 
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1070 CLS:CURS0R 1 5, 1 :PRINTE0, 71" Kaiende 1 



1080 CURS0R1 ,3:.PRINT Y3$ 

1090 PRINT TABC 133 J "Eingabe fornnat :" :PRIN 

T TABC123; !, z.B. 01 . 01 . 1 384" SPRINT T3$ 

1100 CURS0R4, 12 :iNPUT"Gewuenschtes Datum 

: " ;DT$ 

1110 IF LENCDT*3<10 THEN 1100 

1 120 T=UALCLEFT$CDT$,233 :M=UALCriID$CDT$, 

4,233 :J2=UALCRIGHT$CDT$, 433 

1130 IF CT<13 + CT>313 + Cn<13 + Cl1>123 THEN 1 

100 

1140 GOSUB 2240:AS=INTCTX-INTCTX/73*73+1 

1150 AS*=" war ":IF TX>^HT THEN RS*-" is 

t " 

1160 PRINT TABC7-3 ;"SfflDer " ;DT$ ;AS$ ; "e ! n" 

1170 PRINT TABU33;"E" ;U$CAS3 

1180 GET Q$:IF Q$="" THEN GOSUB 2470:GOT 

1180 

1 190 IF Q4="1 " THEN 1060 

1200 IF Q$="0" THEN 420 

1210 GOTO 1 180 

1220 REH Distanzberechnung 

1230 CLS:CURSOR 15,1 :PRINTL0,7]" Kaiende 

1240 CURS0R1 ,3:PRINT Y3$ 
1250 PRINT TABC133;"Eingabeformat :" :PRIN 
T TABC123? :, z.B. 01 . 01 . 1 984" :PR INT Y3* 
1260 CURS0R7, 12:INPUT" Erstes Datum: " ;D 

T$ 

1270 IF LENCDT$3<10 THEN 1260 

,1280 T=UALCLEFT$CDT$,23 3 :(1=UAL CHIDSCDT*, 

4,233 :JE=UALCRIGHT$CDT$,433 

1290 IF CT<13+0T>313+0M<13+CM>123 THEN 1 

260 

1300 GOSUB 2240:ED=TX 

1310 CURS0R7, 14:INPUT"Ewe ites Datum: !I ;D 

S$ 

1320 IF l_ENCDS$3<10 THEN 1310 

1330 T=UALCLEFT$COS$,23 3 :M=UAL Ct1ID$CDS$, 

4,233 :J2=UALCRIGHT$CDS$,433 

1340 IF CT<13 + CT>31 3 + CIK1 3 + 0f1> 1 23 THEN 1 

310 

1350 GOSUB 2240:?D=TX 

1360 PRINT TABC 133 ; !, ESDistanz : " 1 

1370 IF 2D-ED=1 THEN PRINT TABC223;"! Ta 

9":G0T0 1390 

1380 PRINT TABC223j2D-EDr Tage" 

1390 GET Q$:IF Q$="" THEN GOSUB 2470 :GOT 

1390 

1400 IF Q$-"1 " THEN 1220 

1410 IF G$="0" THEN 420 



420 GOTO 1390 
1430 REM We Itze i ten 
1440' CLS:PRINT TABC63 ; "We Itze i ten" 
1450 CURSOR 3,21 :PRINT"Sommerze iten n I ch 
t beruecks ! cht i 9t " 
1460 CURSOR 1 ,3:TS$C1 3=TI$ 
1470 PRINT TAB 063 ;TN*C 1 3 JTABC233 ;LEFT*0T 
S*C1 3,23 ;". " jriID*CTS$C1 3,3,2 3 5" : " JRIGHT* 
CTS$C1 3,23 
1480 FOR SL=2 TO 16 

1490 EtSL3=UALCLEFT$CTS$C13,23 3+TNCSL3 
1500 IF ECSL3>=24 THEN ECSL3=ECSL3-24 
1510 IF ECSL3<0 THEN ECSL3=24+ECSL3 
1520 TS$CSL3=STR$CECSL33+RIGHT$CTS*C1 3,4 

3 

1530 IF LENCTS$CSL33=5 THEN TS$CSL3 = *' " + 

TS$CSL3 

1540 PRINT TABC63 5TN$CSL3 5TABC233;LEFT$C 

TS$CSL3,23; M ." ;riID$CTS$CSL3,3,2 3 

1550 NEXT SL:A2$=RIGHT$CTI$,23 

1560 GET Q$:IF G$<>"" THEN 420 

1570 GOTO 1460 

1580 END 

1530 REH Berechnung des 'Ostersonntags 

1600 !H1=22:NN=2:M=3 

1610 IF J2> = 1700 THEN 1111=1111+1 

1620 IF J?> = 1900 THEN IH1=[iri+1 

1630 IF J2>=2200 THEN hTMIfl+1 

1.640 IF fin=23 THEN NN=NN+1 

1650 IF CrU1=233*CJH> = 18003 THEN NN=NN+1 

1660 IF IW=24 THEN NN=NN+3 

1672 IF CIH1=243*CJ2>=21003 THEN NN=NN+1 

1680 IF Nf1=25 THEN NN=0 

1690 TB=CCJ2-INTU2/193*l9 3*l9+ri!13~INTCC 

CJ2-INTCJ2/193*193*19+lin3/303*30 

1700 TA=TB*6+0JE-INTCJ2/73*73*4+CJ2~INTC 

J2/43*43*2+NN 

1710 WO=TA-INTCTA/?3*7:TX=TB+WO 

1728 IF TX=35 THEN TX=28 

1730 IF CTX=343*CTB=283*CJ2-INTCJ2/193*1 

93>10 THEN TX=27 

1740 TX=TX+22 

1750 IF TX>31 THEN I1=f1+1 :TX=TX-31 

1760 REM Neujahr 

1770 TAC13=1 :f10C13-1 

1780 REH Heilige Drei Koenige 

1790 TAC23=6:|10C23 = 1 

1800 REM Karfre itag 

1810 TAC33=TX-2:M0C33=!1 

1820 IF TAC33<1 THEN I10C33=nOC33-l :TAC33 

=TAC33+31 

1830 REfl 0stersonnta9 
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1840 TAC43=TX:MOC43=M 

1850 REH Ostermontag 

1860 TAC53=TAC43 + 1 :MOC53=*MOC43 

1870 IF TAC53=32 THEN MOC53=MOC53 + 1 :TAC5 

>TAC5)-31 

1888 REM Tag der Arbe it 

1890 TAC63=1 :M0C63=5 

1300 REM Christ! Himmelfahrt 

1910 TAC73=TAC43+9:M0(73=5 

1.920 IF MOt43=3 THEN M0C73=4 

1930 IF TAC73>31 THEN hOC73=MO(73 + 1 :-TAC7 

1=TAC7D-31 

1940 REH Pf ingst sonnt a9 

1950 TAC83=TAC43+19:M0C83=5 

1960 IF M0C4D=3 THEN M0C83=4 

1970 IF TAC83>31 THEN MO C 8 3 =M0 C 8 3 + 1 :TAC8 

3=TA(83~31 

1980 REH Pfingstmontag 

1990 TAC93=TAC43+20:MOC93=5 

2080 IF M0C4J=3 THEN M0C93=4 

2010 IF TAC93>31 THEN fiOC9D=riOC 33 + 1 :TAC3 

3=TAC93-31 

2020 REM Fronleichnam 

2030 TAC103=TAC43 + 30:MOU03=5' 

2040 IF M0C43=3 THEN I1OC103=4 

2050 IF TAC103>31 THEN MOC 1 03=MOC 1 03 + 1 :T 

AC103=TAC103-31 

2060 REtl Tag der Deutschen Einheit 

2070 TAU 1 3=17:M0C1 1 3=6 

2080 REH Maria Himmelfahrt 

2090 TAC123=15:MÜC123=8 

2100 REI1 A! lerhe I i igen 

21 10 TAC133=1 :M0C133=11 

2120 REM Buss- und Bettag 

2130 T=1 :M=1 1 :G0SUB 2240 

2140 W0=TX-INUTX/73*7:TAC14)=8-W0 

2150 IF UI0<4 THEN TAC 1 43 = TAC 1 43~7 

2160 TAC143=TAC143-H7:MÜC143=M 

2170 REM Totensonntag 

2180 TAC153=TAC143+4:M0C153=M 

2190 REM 1. Weihnachtsfeiertag 

2200 TAC163=25:M0C163=12 

2210 REM 2. Weihnachtsfeiertag 

2228 TAC173=26:M0C173=12 

2230 RETURN 

2240 REM Berechnung der Tage 

2250 2=0 :IF M<=2 THEN 2310 

2260 IF JH/40INTCJ2/43 THEN 2300 

2270 IF J2/100 OINTCJE/1003 THEN 2290 

2280 IF JE/400O INTCJ2/4003 THEN 2300 

2290 2=1 

2300 U=INTCC306*!1-3243/103 =60T0 2320 



2310 g=CM-1 3*31 

2320 2=2+CJ2~1 3*365+INTC CJK-1 3/43 

2330 2=2-INTCCJ2-l3/l003 + INTCCJ2--1 3/4003 

2340 TX=2+U+T:RETURN 

2350 REM DATA - ANWEISUNGEN 

2360 DATA Neujahr , He i I i ge Drei Koenige 5 K 

o.r fre i tag , Ost ersonn tag , Ostermontag , Tag d 

er Arbe i t , Chr i s t i Himmelfahrt 

2370 DATA Pf i ngs tsonntag , Pf i ngs t montag , F 

ron 1 e i chnam , Tag der Deutschen EinheitjMa 

•^ i a H i mme ! f ahrt , A I ! erhe I I igen 

2380 DATA Buss- und Bett ag , Totensonntag , 

1 . We i hnachts f e i erta9 j 2. Weihnachtsfeier 

tag 

2390 DATA Sonnt ag , Montag , D i ens tag , M i ttwo 

ch j Donners tag j Fre i tag , Samsta9 

2408 DATA JANUAR, FEBRUAR, MAER2, APR.IL, MAI 

, JUNI , JULI , AUGUST, SEPTEMBER, OKTOBER, NOUE 

MBER,DE2EMBER 

2410 DATA 31,28,31,30,31,30,31,31,30,31, 

30,31 

2420 DATA Muenchen CME23 , 0, Moskau, 2, Kaps 

t adt , 1 , Dakar, -1 , New York , -6, Ch I cago, -7, L 

os Ange I es , -9, Hono j u ! u, - 1 1 , R I o de Janeir 

0,-4, Buenos A I res , -4, Hongkong , 7, Bangkok , 

6, Tel Au i u, 1 , Tok i o, 8, Pek i ng , 7, Sydney, 9 ■ 

2430 CLS :PRINT"EFC3C3C3C3C3C3C3C3C3C3C3C 

3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C 

3C3C3C3C3C3F0" 

2440 FOR SL=1 TO 22:PRINT"C5 

C7":NEXT SL 
2450 PRINT"ECC4C4C4C4C4C4C4C4C4C4C4C4C4C 
4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C 
4C4C4C4DA" 
2460 RETURN 

2470 CURS0R1, 1 SPRINT LEFT*CDA$, 23 ; " . " ;MI 
D*CDA*,3,23i M . " ;RIGHT$CDA$,43 JTABC303 ,'LE 
FT$CTI*,2 3 1". " ;MID$CTI$,3,23 J "' : " iRIGHT*C 
TI$,23 :RETURN 
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Lotto, 6 aus 49 



Das Programm wurde auf einen PC 1500 mit Plotter CE 150 geschrieben und nimmt einen Speicherplatz von 1092 Bytes 



ein. 



Das Programm ist weitgehend selbsterklärend. Die Berechnung der Lottozahlen 6 aus 49 erfolgt getrennt und völlig 
unabhängig voneinander. 

Der Ausdruck erfolgt in acht getrennten Spalten genau wie auf dem Lottoschein. 

Da das Programm nur 1092 Bytes einnimmt, läuft es auch ohne Änderungen und ohne Schwierigkeiten auf dem 
unerweiterten Sharp PC 1500+ Plotter CE 150. 



Liste der im Programm verwendeten Variablen: 

A$ = Eingabe und Ausdruck des Ziehungsdatums 

A, C, E, G, I, K, M, O = Zählvariablen in FOR-NEXT Zählschleifen 

B = Variable für Zufallszahl in Zeile (Spalte 1) 

D - Variable für Zufallszahl in Spalte 2 .. 

F = Variable für Zufallszahl in Spalte 3 

H = Variable für Zufallszahl in Spalte 4 

J = Variable für Zufallszahl in Spalte 5 

L = Variable für Zufallszahl in Spalte 6 

N = Variable für Zufallszahl in Spalte 7 

P = Variable für Zufallszahl in Spalte 8 



i 







Erklärung des Programmaufbaus und dessen Funktionen: 

Zeile 10— 50: Zeichnung des »Kopfes« und Ausdruck des Programmnamens 

Zeile 60—75: Eingabe des Ziehungsdatums und dessen Speicherung 

Zeile 80— 130: Ausdruck der Programmerklärung und des Ziehungsdatums 

Zeile 140—280: Berechnung und Ausdruck der Lottozahlen in acht getrennten Spalten 

Zeile 295-330: Ausdruck des Programmendes 
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4; REM UOTI 

# 
5: REM C. Frank 
Emmer I ch 
102 GRAPH 
202 LINE <0,0)-<25 

0, 0),0, 2 

252 TEXT ;LF 3 
30; TEXT : COLOR 1; 

CSIZE 4: LPRINT 

"L TT 0" 
40; GRAPH 
45s TEXT ; CSIZE 2; 

LPRINT " 6 

aus 49" 2 GRAPH 

50; LINE <0, 0)-<25 

0,0), 0,2 
602 TEXT 2LF 3 
70: INPUT "Datum d 

er Z\ ehung 1 " 5 A 

75; COLOR 1 

802 LPRINT "Es fo! 

9t die Be 

rechnung der 
Lott o-zah i en 
(6 aus 4 

9)" 
902 LPRINT "Fuer d 

en ll ',m 
1002 COLOR 3: LPRINT 

"ANMERKUNG 2 " : 

DOLOR 1 
1102 LPRINT "Der Au 

s druck er 

folgt 'in 8 
Spa I ten , gen 

au ai i e auf ihr 

em Lotto-" 
120; LPRINT "-sehe! 

n ! " 
130:LF 32LPRINT "1 

Spaltes " 
1402 COLOR 32 RANDOM 

2F0R A=1T0 6:B 

=INT <RND 49); 

TAB C7)2LPRINT 

B2NEXT A 
150: COLOR ULF 2: 

LPRINT "2 Spal 

te: ! ' 
1602COLOR 3:RAND0M 

2F0R C=1T0 6:D 

= INT CRND 43)2 

TAB 72 LPRINT D 

2NEXT C 
1702COLOR l:LF 2: 

LPRINT "3 Spal 

te: " 



180 







\ \\ 








1, 



190 



230 



210 



220 



230 



240 



250 



260 



270 



280 



2'90 



295 

300 

305 

310 

315 

320 

330 



COLOR 32RANDOI1 
2F0R E=1T0 62F 
-INT (RND 49); 
TAB 72 LPRINT F 
JNEXT E 
COLOR l:LF 2: 
LPRINT "4 Spal 
te;" 

COLOR 32 RANDOM 
2FOR 6=1T0 6:H 
=INT (RND 49)2 
TAB 72 LPRINT H 
2NEXT G 
COLOR l:LF 22 
LPRINT "5 Spal 
te: " 

COLOR 32 RANDOM 
2F0R 1=1 TO 6:J 
■-INT (RND 49)2 
TAB 72LPRINT J 
2NEXT I 
COLOR 12LF 2; 
LPRINT "6 Spal 
te:" 

COLOR 32 RANDOM 
:FOR K=1T0 62 L 
=INT (RND 49); 
TAB 72LPRINT L 
2NEXT K 
COLOR 12LF 2: 
LPRINT "7 Spal 
te:" 

COLOR 32 RANDOM 
:FOR M=1T0 62N 
= INT (RND 49)2 
TAB 72LPRINT N 
2NEXT M 
COLOR 12LF 2: 
LPRINT "8 Spal 
te: " 

COLOR 32 RANDOM 
:FOR 0=1TO 62 P 
=INT (RND 49)2 
TAB 7: LPRINT P 
2NEXT 
LF 22 COLOR 2: 
LPRINT " 
Ende " 
COLOR 3 
LPRINT "****** 

nI** *4s y &'*& "^i* *^* ^4* ' l A* *^* ^* *A* -I ' 

; COLOR 2 
:LPRINT " Uie 

! Giueck !" 
; COLOR 3 
; LPRINT "****** 

\1« >!/■ nX* *\X* *& ^i^ \L~"^ ^" ^A*" *fr 1' 

:END 
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Cave-Flight 



Nachdem Sie ins Gravitationsfeld des Alphaplaneten ge- 
kommen sind, müssen Sie versuchen sicher zu landen. 
Landeplätze wurden von einer Alphaexpedition bereits 
eingerichtet. Versuchen Sie dorthin zugelangen, sonst ist 
eine Landung auf keinen Fall möglich. Ihr Raumschiff 
würde sofort zerschellen. 



Gesteuert wird mit dem rechten Joystick. Für einen Lande- 
versuch stehen Ihnen 3 Raumschiffe zur Verfugung. Wenn 
Sie die Fire-Taste drücken,' geben Sie Ihrer Raumfähre 
einen Hypersprung, der sie schnell aus dem Anziehungs- 
feld des Alphaplaneten bringt. Das Spiel hat zwei wähl- 
bare Spielstufen. 



#**##***#*****##*####* y- e j g pa ß. 



i~ßr 






v-- ■■■':./< 





4 
5 
f, 

7 
8 

r A 

10 

11 

12 
13 
14 
15 
16 
1? 
18 
19 
28 
21 
22 
23 
24 



■' CflVE-FLIGHT 

•' EV: F.HUNOLD 

•' HUNDSRUECKTR.39 

•- 3444 LflNGEHHRIH 

CLS8 ■ PM0DE3 

PCLS'CLERR &H3E8 

D I M RB< 8 , 8 > , flfl< 8 , 8 > , fi< 8 , 8 > 

VE-0 

HF.s0 ■■ M*0 ■> SH=2 

PLRV»'T10L10O3" 

REM CRVE FLIGHT fGRMEI 

y= i s : 0=5 : y= 1 * X= 1 28 i L=0 

IF VE02THEH CL.S0 = G0SUB69 

IF VE=2 THEN PM0DE3'G0T016 

PCLS2:VE«1 

DRRW ,, BM:3,ri;84;R3DlRlL5DlLlR2DlLlR5UlRlL2D2L3DlLlDlLlDlRlU2RlUlR3DlRlDlRlDlLl'' 

FOR 2MTÜ22 

READ J,K,H:P8EKJ,K,H> 

NEXT 

DRTR19, 19, 4, 17, 10, 4,11,11 ,4, 16, 1 1 , 4 

DRTR12, 12,4, 15, 13,4, 13, 13, 3, 14, 13, 3 

DRTR15, 13,3, 16, 13,3, 17, 13, 3, 10, 14, 3 

DRTflll, 14,3, 12, 14,3, 13, 14,3, 14, 14, 3 
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25 DRTR12, 15, 4, 15, 15, 4, 11, 16, 4, 16, 16, 4 
2:6 DRTA10, 17,4, 17, 17,4 

27 GEK © , ::>»< 8 , 8 > , fl , G = GEK 20 , 26 >-< 23 , 28 > , AR , G = GEK 10,1 >-< 1 8 , 1 8 > , AB , G 

28 PCL82 

29 SR=FH 
3@ RS=SR 

31 IF SR=2THEN42 

32 DRAU " BMÖ , 72 .; S4 j R6D9R3U3R6U7R 1 0D5R5D 1 0R6D20R4D30L5D 1 0L6D7L3D2L6D 1 0R25D3L25U3R3 
0U7R3D 1 5R20D3L 1 3U3R 1 5U20L5U7R4U 1 2L8U 1 2R 1 7U5L 1 0U 1 5 " 

33 DRAM " L 1 0U5R4U3L2U7R8U9R 1 1 DSD 1 R5U3R6R3U6R2D3R4U2D5R6D3U2R2D4R5U6R8D 1 2L7D3R2D4L 
8D6R2D4L4DS" 

34 DRAU " D7L5D4L5D6L2D4L5D 1 2R20D3L20U3R23D7L3D9R20D3L20U3R20U2R5U7R8U9L3U6L5U6R3U 
5L2U7" 

35 DRAU " L2U6R7U4R3U7R2I J4R6U8L3U 1 3R6U4R5D7R8U4R6D3L2D5R9U5R6USR6U4R5U7R3U9R 1 5D6R2 
D7" 

36 DRRt^L8D4L6D2L2D3L2D18L2D6LlD3L4D9L6D3L4D3L7DlL6D2L5D2L2D9R2D5R2D7R3O9R20D3L2 
0U3R29U4L3U7L2U5L 2U2R2U2R5U2R6U 1 R5D6R4 " 

37 DRflW"D3R6D8R3D7R2D5R20D3L20U3R20U8R3U6L3U5L2U?L7U6L4U9R6U4R5U8R2UnL3U8L2U9R4 
U6R8D5R6U4R9U7R7U4R5U2R4U3R6 " 

38 PflINK 255, 192 >, 7, 8 = PflINK 32, 166 >, 1,8 = PflINK 62, 175 >, 1 , 8 

39 PflINK 98, 142 >, 1,8' PflINK 115, 158 >, 1 , 8 

40 PflINK 174, 139 >, 1 , 8 ■■ PflINK 218, 145 >, 1 , 8 

41 GOT049 

42 DRRW " BM0 , 25R8D3R9D3R8D7R7D5R9D 1 0R7D3R6D4R3D 1 9R3D9L6D 1 0L4D9L.3D 1 0L5D8R4O9R7D6R9 
08R6D9L4D3R 1 2U6R 1 1 D8R5D9R2Q " 

43 DRRW " D3L20U3R20U7R9U6R 1 2D 1 0R7U9R3U 1 8R 1 2D6R3D9R20D3L29U3R20U6R9D 1 2R4D2R5D 1 8R20 
D3L20U3R20Ü7R8U20R 1 5U 1 0L5I 119" 

44 DRAI4 " L8U20R4U 1 9L.6U 1 6L4U 1 ?L 1 2D5L 1 8D6L 1 2D4L 1 7D6L 20D7L22D 1 0L 1 6D 1 6R4D8R20D3L28U3R 
20U7R 1 2D3R8U 1 0R4D7R28 " 

45 DRRW " D3L20U3R28U6R9U5R 1 8D9R20D3L20U3R20U8R5D20L6D8RSD i CiL 1 2U4L 1 9U6L 1 6D4L 1 «D3L 1 
905L 1 8U6L 1 3U5L 1 4U7L 1 4U9L3U6R3U7 " 

46 DRflW " R5U8R3U8R2U9R4U4R7U3R 1 0U2R 1 7U4R 1 9U8R5U9R 1 0U5R 1 9D2R 1 3U3R 1 2D4R 1 5» f 2P 1 RD3R 1 2 
U2R10U4R12" 

47 PflINK 255, 192 >, 7, 8 = PflINK 98, 164 ), 1,8 = PflINK 164, 156 ), 1 , 8 

48 PflINK 202, 174 >, 1,8 = PflINK 196, 99 >, 1,8 = PflINK 156, 101 >, 1,8 = PflINK 112, 108 ), 1 , 8 

49 SCREEN1,0 

50 IF PP0INKX-1,Y>~30R PPOINKX+9, Y>~30R PPO I NK X , Y+9 )=30R PP0INKX+8, Y+9>=3THE 
N GOSUB107 

51 2 1 «PPO I NK X , Y+ 9 > = Z2«PP0 1 NK X+8 , Y+ 1 > 

52 IF Zl-1 AND Z2-1THEN GOSUB100 

53 IF X=S BND Y=16 AND L=6THEN RESTORE =M=M+g: GOTO 12 

54 MF»JOYSTKa> 

55 IF MF<2@THEN D=D-V 

56 IF MFM0THEN D«D+V 

57 IF PEEKX 65280 >~1260R PEEKC 65280 >=254THEN G0SUB116 

58 PUK X , Y >-<. X+8 , Y+8 > , Afl , P8ET = Y*Y+< D* . 1 > 

59 IF Y<10THEN Y=10 

60 FM*JOYSTKX O > 

61 IF FM<20RND X>7THEN X=X-2 

62 IF FM>44flND X<245THEN X=X+2 

63 PUK X , Y >-( X+8 , Y+8 > , R , P8ET 

64 D=D+1=IF D>30THEN D»30 

65 G0T058 

66 3CREEN0,0=IF M+L=0THEN DP=48ELSE IF M+L«1THEN DP*49ELSE IF 'M+L*2THEN DP«58ELS 
E IF M+L=3THEN DP=51 

67 POKE 1 025 , DP = POKE 1 026 , 46 = PR I NT§3 , " f. ?. ehre " .; CHR*< 1 28 ) i " 9e 1 andet " • ■ POKE 1 043 , 33 

68 VE=2= RESTORE 

69 PLAY " T 1 ÖL 1 0O3V20 " : FOR W- 1 TOS = SCREEN0 , 1 = PLAY " C " +STR*C W > 

70 FOR F==7T015 = SEKF,3,W> = NEXT 

71 8EK6,4,W> = SEK7,4,W) = 8EK8,4,U> = SEK12,4,U:« = SEK13,4,W) 

72 SEK 5,5, W > = 8ET< 6 , 5 , W > •■ SET< 7,5, W > = FOR F= 1 9T026 = SEK F , 5 , U •' = NEXT = FOR F=37T045 = SE 
K F , 5 , W ) = NEXT = SCREEN8 , = PLAY " D " +STR$C W > 

73 FOR F=4T07 = SEK F , 6 , W > = NEXT 'SEK 27 , 6 , W > = SEK 36 , 6 , W > 

74 FOR F=4T07 ■ SEK F , 7 , W > = NEXT • FOR F= 1 9T024 • SEK F , 7 , W ) • NEXT • SET< 28 , 7 , W ) = SEK 35 , 7 , 
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W > ■■ FOR F=39T044 = SEK F , 7 , U ) ■■ HEXT 

75 FOR F«4T07 = SEK F , 8 , 14 ) < HEXT = SEK 1 9 , 3 , W > = SEK 23 , 8 .■ W ) = SEK 24 , 8 .. W > = SEK 29,8 , 14 > '■ SB 
K 34 , 3 , W > : SEK 39 , 8 , W ) ' SEK 44 , 8 , W > 

76 SEK 5,9, 14 > • SEK 6,9, 14 > = SEK 7,9, 14 > = SEK 1 9 , 9 , 14 ) = SEK 23 , 9' .. 14 > = SEK 24,9, W > = SEK 30 , 9 
, 14 ) = SETC 33 , 9 , W > s SEK 39 , 9 , 14 > = FOR F«42T044 = SEK F , 9 , 14 ) = HEXT = SCREEN0 , 1 = PLAY " E " +STRSC 
W) 

77 FÜR F-6T08 = SETC F , 1 , 14 > = HEXT = SEK 12,1 9 , 14 > * SEK 13,10, 1*1 > = SETC 19,1 9 , 14 > = SEK 23,10, 
W ) = SET( 24, 10, W > > SEK 26, 10 , W > = SEK 27, 10, 14 > = SEK 30, 10, W > = SEK 33, 10, 14 ) = SEK 39, 10, 14 > 

78 FÜR F==7TÜ15<SEKF,11,W>:MEXKF0R F-19T025 -SEK F, 1 1 , 14 > « NEXT < FOR F«30TO33 = SEK F 
, 1 1 , 14 ) : HEXT ■■ FOR F-39T044 '■ SEK F.. 11, 14 > ■■ HEXT = SEK 31,12, W > = SET< 32, 12, W > 

79 SET-' 38, 15, 14 > = SEK 39, 15,14) = SEK 18, 15, 14 > = SEK 14, 15, 14) 'FÜR F=10TO68TEF-1 = SEKF, t 
5 , 14 ) = HEXT : SCREEH0 , 8 = FLflY " F " +STRSC W ) 

80 FOR F=44T0378TEP- 1 = SEK F , 1 6 , W > = HEXT ■■ SEK 30 , 1 6 , W > = SEK 14,16, W > = SEK 7 , 1 6 , 14 ) « SET 
(6, 16,14) 

8 1 SEK 38 ,17, W > = FÜR F«34T039STEP~ 1 = SEK F , 1 7 , W > = HEXT • FOR F»26TÜ22STEP- 1 < SEK F , 1 7 , 
14 ) = HEXT • SEK 18, 17, 14 > : SEK 14, 17, 14 ) = SEK 10, 17 , W > : SETC 6, 17, W > 

82 SET'' 33, 18, 14 > = SEK 34, 18, 14 > = SEK 33, 18, 14 > = SEK 30, 18, W > = SEK 26, 13, (4 > = SEK 25, 18, 14 > 
• SEK 22 , 1 8 , L4 ) •■ SEK 18,18, 14 > = SEK 1 4 , 1 8 , 14 ) « FOR F«*9T04STEP- 1 ' SETC F , 1 8 , 14 > ' HEXT 

83 SEK 38, 13, W ) = SEK 34, 19, W > ■ SEK 30, 19, 14 > •■ SEK 26, 19, [4 > = SEK 25, 19, 14 > = SEK 22, 19, 14 > 
■■ SETC 13, 19, 14 ) ' SETC 14, 19, 14 ) ■■ SEK 10, 19, W > '■ SETC 6, 19, W ) = SETC 3, 19, 14 > ' SCREEH0, 1 = PLRV'G 
"+STR*<I4) 

84 FOR F*20TO21 = SETC 38, F, U > •■ SETC 34, F, 14 ) •■ SETC 30, F, 14 > = SEK 26, F, !4 ) = SEK 25, F, 14 > ' SEK 
22 , F , 14 ) = SETC 1 8 , F , W > ■ SETC 1 4 , F , U > = SETC 6 , F , 14 > = HEXT 

85 SETC 38 , 22 , 14 ) •■ SETC 34 , 22 , U > ' SETC 30 , 22 , 14 > ' FOR F=26T022STEP» 1 = SETC F , 22 , U ) = HEXT ■■ SE 
K 13, 22, W ) = SEK 14, 22, 14 > : SEK 6, 22, W > 

86 SETC 26, 23, 14 '.:- = SEK 25, 23, 14 ) = SETC 6, 23, 14 > ■■ SETC 3, 23, 14 > •• SEK 26, 24, 14 > ' SETC 25, 24, 14 ) = S 
EK3,24,W> 

87 FOR F«26T03STEP-1 = SETC F, 25, L4 > = HEXT •■ SCREEH0, : PLflY M R"+STR*< W > = IF VE«1THEN 1 12 

88 IF VE«0THEN P0KE1146, 7 = P0KE1178, 1 '■ POKE1210, 13 = P0KE1242,5 = P0KE1274, 32 

89 I F VE-0THEN POKE 1 806 ,15= POKE 1 338 , 22 ■ POKE 1 370 , 5 : POKE 1 402 , 1 8 

90 POKE1 149, 80 = P0KE1 131 , 82 ' P0KE1213, 69 ' POKE 1245, 83 • P0KE1277, 83 = POKE 1341 , 70 * P0KE1 
373 , 73 ' POKE 1 405 , 82 ' POKE 1 437 , 69 

9 1 POKE 1 443 ,12 = POKE 1 444 , 5 = POKE 1 445 , 22 ■ POKE 1 446 , 5 ■ POKE 1 447 ,12 = POKE 1 449 , 49 • POKE 1 45 
1,15' POKE 1 452 , 1 S = POKE 1454, 50 = POKE 1 456 , 63 

92 PR I HT§45 1 , " coP y r i 9ht " ■ CHR$C 1 28 ) ; " by " ; CHR$C 1 23 > ; " hu.no 1 d " ■ ! PLAY " E " +STR*C W > 

93 I*=IHKEY*=IF I*= ,M, THEN99 

94 IF I$- M rTHFH FH=1ELSE IF I$="2"THEH FH=2 ELSE94 

95 IF FH«1 THEH POKE 1 449 , 1 1 3 = POKE 1 456 , 33 
SS IF FH=2 THEH P0KE1454, 114=P0KE1456,33 

97 IF VE*2flND PEEKC 65280 )*1 26 OR PEEKC 65280 )«254 THEN10 

98 IF PEEKC 65230 )=1260R PEEKC 65280 )=254 THEH VE=1 :G0SUB69: RETURN 

99 HEXT=G0T069 

"1 00 Pfi I NTC X+4 , Y+ 1 9 ) , 7,8 = Y»Y-4 = L»L+ 1 

101 PUTCX,Y+4>-CX+8,Y+12>,R,PSET 

102 FOR F«lTO3'PLFiY' , O2.:l;2i3:4;5;6;7.;8:9:i0:ll;i2;O5.:12! 11; 10!9j8;7j6;5;4j3;2; 1 i 
" = HEXT 

1 03 PUTC X , Y+4 >-C X+8 , Y+ 1 2 > , RR , PSET 

104 IF DM5THEH G0SUB197 

105 IF DM0THEN PLHY"T255L255O5BT10L10" = V=V»1 

106 RETURN 

1 07 PUTC X , Y )-C X+8 , Y+8 > , AB , PSET 

108 G0SU8113=SH=SH-1=V*15 

199 PUTC X, Y >-C X+8, Y+8 ), RR, PSET 
119 X= 1 28 - Y* 1 = I F SH< 0THEH66 

111 RETURN 

1 12 P0KE1 146, 42 = P0KE1 178 , 32 = POKE1210, 23 = P0KE1242, 1 = P0KE1274, 9 = P0KE1396, 20 = P0KE13 
3ft . X? ■■ pnKF137R . 42 : R0KE1 402 ■ 32 = PETURH 

1 13 FOR F«3iTÖlSTEP-l = SCREEN1 , B = PLBY"T255L25501 V'+STR« F )+" ; 5; 4; 3; 2.; 1 ; " = SCREEN1 , 
1 ■■ HEXT 

1 1 4 PLAY " T 1 9L 1 903 " = SCREEN 1 .• 9 

115 RETURN 

1 1 6 P LA Y " T255L2550 1 " ■ FOR F~ 1 9T03 1 : PLAY " V " +STR*C F >+ " C " = HEXT = PLAY " T 1 9L 1 9V2903 " 

117 D=D-30 

118 RETURN 
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Geosoft 



Ein Programm zur Bewältigung von Aufgaben in der ein- 
fachen Geometrie. Wobei das Programm so gestaltet ist, 
daß es leicht auf andere Rechner umgeschrieben werden 
kann. 

Berechnet werden können: 

Dreiecke, Rechtecke, Quadrate, das Trapez, Elypsen, 
Kreise, Kreisabschnitte, Kreisringabschnitte, Pyramiden, 
Kegel, Kugeln etc. Ein tolles Programm für alle Schüler, die 
sich in der Schule verbessern wollen. 
Mit den rechten und linken Pfeiltasten könnt Ihr im 
Menue herumblättern. Das erste Menue berechnet die 
Flächen — das zweite die Volumen — das dritte Menue 
beinhaltet allgemeines aus der Geometrie. 
Wir hoffen, daß unser Programm nicht nur den Schülern 
unter unseren Lesern gefallen wird. 

**^ *^L* »Jj* kL* +lf «A* «A* sJ^* *A* *1a *i* **X* *£<* **L* *J> n\+ *A* *Jj* ^L* *J* *J* *J* ^1> *I* m1+ *lL« «Ap *J* *iL# ^1> «bJj# «J^ «X" **■!** *t** **-l j# ~vL* *L» t-1^ *1* **L* *»1* »1* *»£* *i* 
*T* *T* *iT* *7^ *T* *«* *■* *T* *T* T *T* ■T v *T* *** *>* *T* ."T* *T* ^T* *T* •*!* *v* *T* *T* *T* ^* *T* *T* *T* ""T* "T* *T* *i^ *T* *T* *** *i* *T* *T* *T^ *?* *T* *«* "^ 1 ^ 1 

1 •' GEOSOFT DRRG0H32 

2 •' COPYRIGHT BY ■ 

3 •* FRIEDRICH HUNOLD ■%•. 

4 'TRONIC- VERLAG GMBH 

5 PCLEflR2=CLEflR1800=CLS 

6 S*»CHR*C 1 28 > = G 1 $«STP I NG*< 3 , S$ '?+ " geosoft. " +S$+RS+fi$+ " n*yn i p " +RTP I NG$f R . fl* > : G2$« " 
L OESUNG : " ' G3*= " GEOSOFT < -C- V 1 

7 P I =3 . 1 4 1 5 9 265 36 = SU" 2 00 ■ S 0« i 

3 Ml*«"RECHTECK, QUADRAT' 1 = M2$« M DREICK" M-IS^'TRRPEZ, PARALLELOGRAMM" =M4$«" VIELECK" : 

M5$«"KREIS, ELLIPSE, ABSCHNITT" ■ M6$*"KREI3RING, --ABSCHNITT" 

9 Nl*a" QUADER, WUERFEL" ■ H2$«'* PYRAMIDE, -STUMPF" = N3$«"KEGF! . -ST! IMPF" : N4$= "ZYLINDER . 

KUGEL" =N5$=" PRISMA" 

i 0*= " L. I STE , SPEZ I F I SCHE GEW I CHTE " : 02$=.« W I NKELUMRECHHUNG " = 03$« " POLAR I N PEHHTW I N 

KELIG" 

ü POKE 359,60 

1 2 CLS = PR I HTI:0 , G 1 $ ■• PR I NT " FLRECHEN & UMFANG " = PP I NT = PR T NT " 1 . „ , " ; M 1 $ = PR I NT " 2 ...'*; M 

2* : FR INT "3.. . . " i M3S : PRINT"4. . . " ■ M4$ : PRINTE, „ . " : MS$ ■ PRINT"6. . . " s M6S6 = PPINT^:474 . " >> 
ii 

1 3 I *« I NKE Y$ : I F I $- " " TI-FH 1 3 

14 IF I$-CHR$<3VrHEN 103 

15 I=RSC<I$>'IF K49 OR I>54 THEN13 ELSE OH 1-48 GOTO 17 . 29.43.fifi , Gl ,ft4 

16 GOTO 13 " 

1 7 CLS = PR I NTS3 , G3* ■■ PR I NT§35 , M 1 $ = PR I NT : I F VE« 1 THEN RETURN 

1 8 PR I NT " # A . . . RECHTECK ? " ■ PR I NT " # P . . „ Q\ IRDPRT "? " 
13 IS«IHKEV$=IF 1$«"" THEN 19 

20 IF I$="A"THEN 25 ELSE IF TS="B"THFN ?1 ELSE 1*=' 

2 1 VE« 1 = GOSUB 1 7 ' VE-0 

22 INPUT" SEITENLRENGE " i R : F*H A 2 = l l«4:*:A 

23 PRINTER INT G2* = PRINT" FLRECHE = ";F = PPIHT" UMFANG = "MI 

24 G0SUB234'G0T017 

25 VE*JhGOSUB17'VE=0 

26 INPUT" SEITENLfiEHGF R "; A= INPUT" SEI TENLREHGE B " : B : F^FttB M l»f 2*R -'+f 2*B > 

27 PRIHT = PRIHT G2* = PRINT" FLRECHE = ";F = PRINT" UMFANG ■• " t-ll 

28 GOT024 

29 CLS = PR I NT§3 , G3$ = PR I NTS35 , M2$ = PR I NT = I F VE« 1 THEN PETURN 

30 PRINT" # R... GLEICHSEITIG T'^PRINT" # B. . „ UHREGELMAESSIG *?■ 

31 I*=IHKEY$aF I**""THEN31 

32 IF I$«"R"THEN34E!„..SE IF I$«"B"THEN39 ELSF31 

33 GGT031 

34 VE«1=GOSUB29=VE«0 

35 INPUT" LRENGE fl M ,= A= INPUT" HOEHE H " > H = F=fi*H/£ - U«3*fi 
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36 PRINT 'PRINT G2*= PRINT" FLRECHE ■■ ";F=PRINT" UMFANG : " ■ U 

37 PRINT" HQEHE*B.866*LRENGE" 

38 GÖSUB234 : G0T029 
29 VF»'' :GnftllR?9'VF=p 

49 INPUT" LRENGE R ";R= INPUT" HOEHE H " ; H ;F*R*H^2= INPUT" SEITE B "iB* INPUT" SE 
ITE C ";C'U*A+B+C 

41 PRINT: PRINT G2*= PRINT" FLRECHE = "SPRINT" UMFANG = ";U 

42 G0TÖ33 

43 CLS- PRINTS3, G3*=PRINTS35,M3*= PRINT = IF VE=1THEM RETURN 

44 PRINT" # R...TRRPE2" ! PRINT" # B. .„ PARALLELOGRAMM" 

45 I4*INKEV*=IF IS=""THEN45 

46 IF I*="A"THEN48ELSE IF I*="B"THENR2 ELSE45 

47 GOT045 

48 VE=1 : GAfil IR43 : VE~0 

49 INPUT" LRENGE R ";A ; INPUT" LRENGE R3 " ; A3 = INPUT" LRENGE A2 ";R2= INPUT" LRENG 
E Rl ";Ri = INPUT" HOEHE " ■ H ■■?*<. R+A3)#H/2 : U»R+Rl+R2+fl3 

50 PRINT ■■ PRINT G2* = PRINT" FLRECHE ■■ 'S F' RR INT" UMFRNG : ";U 
Rl G0SUB234 : G0T043 

52 VE"1 ! G0SUB43 : VE=*S 

53 INPUT" LRENGE R " ; A : INPUT" HOEHE H " ; H = INPUT" BREITE B " ■ B : F-A#H : U=< 2*fl ?+< 2* 
B> 

54 PRINT: PRINT G2*= PRINT" FLRECHE ■• "SPRINT" UMFANG = ";U 
RR GfiTORl 

56 CÜ=::pRINT| ; 3..G3* = PRINT§35,ri4$: PRINT = IF VE=1THEN RETURN 

57 INPUT" LRENGE R ";R= INPUT" HOEHE H " ; H = INPUT" ANZAHL X " .; RH 

58 F«fl*H^2#RN ■ U~R*RN 

59 PR I NT : PR I NT G2* ■ PR I NT " FLRECHE ■ " :< F = PR I NT " ' UMFRNG ■■ " ; U 
68 G0SUB234 ■■ G0T056 

6 1 CLS : PR I NTf 3 .■ G3* : PR I NT§35 .■ M5$ : PR I NT = I P VE* 1 THEN RETURN 

6? PR I NT " # fl . ,. . KRE I S ? " : PR I NT " # B... RBSCHN ITT ? " ■• PR I NT " # C ,. . . ELL I PSE ? " . 

63 I * ™ I NK" E V $ : I F I $= " ' ' THEN63 

64 IF I*~"R"THEN66ELSE IF I$~"B"RND RO0THEN70ELSE IF I**"C"THEN77 ELSE 63 

65 GOTO 63 

66 VE~1 'GOSUB61 : v'E~0 

67 INPUT" RADIUS R " .: R : F«PI*R rt 2 : U=2'#PI#R 

68 PRINT : PRINT G2* : PRINT" FLRECHE ,; "SPRINT" UMFANG : " ; U 

69 G0SUB234 : GOTO 6 1 

70 VE= i : G0SUB6 1 : VE=S : I F R=8 THEN6 1 ELSE I NPUT " W I NKEL " i W : F*P I '*R A 2*W^369 : Fl «< R-""2--' 
2 V.f:< p t *N--' 1 80 -S I H< W > ) : L=2*P I *R:*:W/360 = H»R*< 1 -COS«:: W.--2 > >7 1 PR I NT ■ PR I NT G2S 

7 2 PR INT" RUSS CHM ITT = " > F 

7 3 PR INT" ABSCHNITT = " ; F 1 

74 PRINT" BÖGENLREN. : " = L 

75 PRINT" HOEHE ABS. : ";H 
?€• GOTO 69 

77 VE-1 : G0SUB61 : VE~0 

78 INPUT" GR. DURCHMESSER ";D 

79 INPUT" KL. DURCHMESSER ";D1-IF Dl>=D THEN 61 
h fr - p f / 4tD'iü 1 : P R I NT 

81 PRINT G2$ 

82 PRINT" FLRECHE = ";F 
A3 GOTO 69 

84 CLS = PR I NT$3 , G3* ! PR I NT : I35 , M5S : PR I NT = I F VE= 1 THEN RETURN ■ 

85 PRINT" # R. .. KREISRING "= PRINT" # B. . „ABSCHNITT" 

86 I ** I NKE V* = I F I *a " " THEN86 

ft7 IF I*="R"THEN89ELSE IF I**"B"RND RO0THEN93 ELSE36 

88 GOT 086 

RQ vF~ 1 : Ö"\9,\ IRR 4 : VE-0 

98 INPUT" GR. RADIUS "jR^ INPUT" KL- RRDIUS ";R1 

91 B~< R+R 1 *5/2 : B 1 ap-R 1 i R?=F T t< < R-"v' -'-' P 1 ''"? > > 

92 PRINT: PRINT G2$ 

93 PRINT" MITTLERER" 

94 PRINT" DURCHMESSER ■ " :>B 

95 PR I NT " R I NGBRE I TE " ; B 1 

96 PRINT" RINGFLRECHE :".:B2 
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97 G0SUB234 = G0T084 

98 VE--1 : G0SUB84 f VE=0 

99 INPUT" WINKEL "jW 

1. SR F=< W*P I -''360 )#( < R''-2 >-< R 1 rt 2 ':• ':> 

101 PRINT = PRINT G2*= PRINT" ABSCHNITT-" = PRIHT" FLRECHE = %F 

102 GOTO 97 

1 63 CLS ' PR I HT§0 , G 1 S = PR I NT " VOLUMEN & OBERFLflECHEN " ■■ RR I NT = PR I NT M 1 . . . " ; H 1 * ■■ FR I NT " 2 
...".: N2S : RR I NT " 3 .. . . " .; N3$ = PR I NT " 4 . . . " ; H4$ = PR I NT " 5 „ „ . " : N5$ • PR I NTS47 1 ■ " < < > *> " 
1 04 T. *» I NKEYS = I F I *« " " THEN 1 04 

105 IF I*=CHR*(8>THEN12 

106 IF I*«CHR*<SOTHEN208 

1.07 I=HSC<I*)=IF K49 OR I >53 THEN 104 ELSE ON 1-48 GOTO 108,125,156,174,193 
108 CL5'PRINT§3..G3S = PRIHT§35;N1*:PRINT'IF VE=1 THEN RETURN 
1.09 PRINT" # R. . . WUERFEL ?"= PRINT" # B..-ßHflD"R ''"' 

110 I *" I NKE YS : I F I *« " " THEN 1 1 

111 IF I*- ,, fl"THENÜ2 ELSE IF I*="B"THEN1 18 ELSE 110 
1 1. 2 VE™ 1 ■ GOSUB 1 08 : VE~0 

113 I NPUT " SE I TENLRENGE " j fl ■■ V=fl A 3 = 0~6*<:: R A 2 > 

114 PRINT : PRINT G2S 

1 1 5 PR I NT " OBERFLRECHE : " < 

116 PRINT" VOLUMEN : ";V 

117 GÜSÜB234' GOTO 108 

1. 1 S VE™ 1 = GOSUB 1 08 : VE-0 

119 INPUT" LRENGE fl ";B : INPUT" BREITE B " sP'INPMT" TIEFE C "iC 

1. 20 V=tf #B*C = 0=( 2*fi*B >+( 2*fl*C >-K 2*B*C > 

121 PRINT = PRINT G2$ 

122 PRINT" OBERE !.... RECHE = " ; 

1 23 PRINT" VO L UME N • " : V 

124 GOT0 1.17 

1 25 CLS = PR I NT*3 , G3S : PR I NT§35 , N2S ■ PR I NT • I F VE- 1 THEN RET! JRN 

1 26 PR I NT " # R . . . PVRRM I DE Q " •■ PR I NT " # 8 . „ „ PYRRM I DE V " •■ F'P T NT " # f: . . . ?W IMPF " 

127 I*=INKEY*=IF 1$="" THEN 127 

128 IF I*~"fl ,, THENi29 ELBE IF I*="B"THEN137 ELSE IF I$=»C"THENJ48 FLSE 127 
1. 2 9 VE = 1 : GO S U B 1 25 ■ VE - 

1 30 I NPU T " SEI T E NL RENG E " j R 

1. 3 1 I NPUT " KG EP . HOEHE " ; H 

132 1 NPUT " DRE I . HOEHE " .; H 1 = V» 1 s3U FT2 '>:*:H • n*< fl""? W fl#H 1 /2#4+<r R---2 "J *:< 

1.33 PRINT: PRINT G2* 

134 PRINT" OBERFLRECHE '";0 

135 PRINT" VOLUMEN = " ; V 

1 3 6 GOSUB 234 : GO T Ol 2 5 

1. 37 VE™ 1 ; GOSUB 1 25 ! VE>0 

138 INPUT" SEI TENLRENGE R ";fi 

1 39 I NPU T " H ÖE , DRE I . V I E L " • H t 

140 INPUT" SEITENRNZRHL X ";flN 

141 INPUT" DREI,. HOEHE H ";H 

142 INPUT" KOFR.HOFHF T " ; HH 

1 43 F=fl*H 1 ^2*RN : V= 1 /3*F*HH = Ö-R*H^2*F 

144 PRINT: PRINT G2$ 

145 P R I NT " OB E RFL REO HE = " ■ 

146 PRINT" VOLUMEN = ";V 
147' GOTO 136 

1 4 8 VE ™ 1 : GO S ÜB 125 = VE=0 

149 INPUT" SEITE GR.fl ";R= INPUT" SEITE GR.B " -B 

1 50 I NPUT " SE I TE ST „ R " .: R 1 ■ X NPUT " SE I TE ST . B " : B 1 

151 I N PUT " KOE . HOEHE H ' ' .; H = GM ~<. < R*R >+ < R 1 * R 1 ^ s? "> ■ GM™GM '"• 2 : V =GM*H 

152 PRINT: PRINT |-£$ 

1 53 PR I NT " M I TT . FL RECHF : " ; HM 

154 PRINT" VOLUMEN : " ; V 

155 GOTO 136 

156 C L S : PR I NT %3 , G 3* ; PR I NT % 35 , N3$ = P R I NT = I F VE« 1 THEN RE TURN 
1^7 PPT NT" # P...KFGFL '?" :PRTNT" # R . „ . RTMfIFF ?" 

158 I*-INKEY*:IF 1$-"" THEN 158 
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159 IF I$«"fi"THEN160 ELSE IF I$="B" THEN 168 ELSE 158 

1 60 VE« 1 ; GOSUB 156= V E «9 

161 I HPUT " RRD I US " i R : F=F I *C R /% 2 > = I HP UT " HOEHE " .: H 
1 62 V« 1 ^3*F*H : I HPUT " LREHGE " .; R ! M=P I *R*fl ! 0*M+F 
16? PRINTER INT G2* 

164 PRIHT" OBERFLRECHE : "-0 

165 PRIHT" MRHTELFLRE. = " i M 
t £6 PR I NT " VOLUMEN : " .; V 
167 G0SUB234= GOTO 156 

1 fift VF™ 1 = GHRI IB1 56 : VE-0 

j ^q T Npl IT " GP . K'FiD 1 1 IS " : P ■■ I HPUT " ST ,. RRD I US " :• R 1 : F=P I *< R'"-2 > : F 1 ~P I *< R 1 '"-2 > 

1 7fi I HPUT " HOEHE "iH = DM=*< F+F 1 V2 = V=P T. *< D!*T2 >*H/4 

1.?1 PRIHT = PRIHT GS* 

1.7? PRIHT" VOLUMEN = ";V 

173 GOTO 167 

174 f:L ■=; = pP. T NTS:3 , G 3$ = PR I NTf 35 , H4S : PR I NT ■ l F VE= 1 THEN RETURN 

175 PPINT" # fl. . „ZYLINDER ?" = PRIHT" # B, „ . KUGEL ?" . 

176 I*aINKEV*'IF I** ,,H THEN 176 

177 TF I$~"R"THEH173 ELSE IF T*=»B"THEN136 ELSE 176 
i 7:=; 'JE- 1 = GOSUB 174 = VE-9 

179 I HPUT " RRD I US " ; R = F=F I #< R''"2 > : I HPUT " HOEHE " ; H 

1 30 V=F*H : M=2#P I *R*H : 0=M+t ;?*F ':< 

13 j PPT NT: PRIHT G2S 

13? PPINT" OBERFLRECHE =" ;0 

183 PRIHT" MRHTELFLRE. -"^ 

134 PRIHT" VOLUMEN •• u • V 

1.85 G0SUB234: GOTO 174 

1 36 VF- 1 = GHSUB 1 74 ■ VE=9 : I HPUT " DURCHMESSER " .; D 

187 IF 6=0 THEN IHPUT" RRDIUS ".;R = D«R*2 

1 g?3 v»< P I /6 >#< D A 3 > ! 0*P I #< D'"3 > 

139 PRIHT : PRIHT G2S 

130 PRIHT" OBERFLRECHE • " :• 

191 PRIHT" VOLUMEN = ";V 

192 GOTO 135 

193 CLS:PRINTf3,G3*:PRIHTS:35,N5* = PRINT:IF VE=1 THEN RETURN 

194 IHPUT" LREHGE R ";R= IHPUT" LREHGE R3 "> R3 = IHPUT" HOEHE » .; H •■ F=< R*R3 )#H/2 

195 INPUT" SEITENZAHL ".O-MF ;Ö19 THEN 193 

196 FOR -L=l TO X 

197 PR I NT §256 .. S TR I NG* < 1 , " " > 
193 IHPUT" SEITE R "ifl(L) 

199 PRINT§2SS,STRING*<10," "> 

200 IHPUT" SEITE B " : B< L > 

20 1 HEXT = VE- 1 • GOSUB 193 = VE-0 

202 PRINTER INT G2$ 

203 FOR L-l TO tt-U-W.L'J+Bt.L > = NEXT = M=U*H = V=F#H = 0*<;M+2)*F 
?Pi4 PRTHT" flRFPFL RFCHF : ";0 

205 PRIHT" MRHTELFLrE. '"iM 

206 PRIHT" VOLUMEN =";V 

207 FOR L»l TO X : fl<L>«0 : BCL )»@ ! HEXT • G0SUB234= GOTO 193 

208 CLS ' PP I HT§0 , G 1 * ■■ PR I NT " RLLGEME I N " ! PR I NT ■■ PR I NT " 1 . . . " .; 0* : PR I NT " 2 . . . " ; 02* • PR I NT 
" 3 ..." : 03* : PR I HT§474 .. " < < " 

209 I*=INKEY* : IF I$s""THFN209 
?ifl TF i*aCHR*<:8 5THEN103 

211 i=R3rvj*':'=IF K49 OR I>51THEH209 ELSE OH 1-48 GOTO 212,220,228,209 

2 1 2 CLS = PR I HT§3 , G3* : PR I NTf 35 , 0* 

213 PRIHT " DICHTE IN GRRMM/CM A 3" 

214 PRINT"RLHMINIUM. . . . 2,7" ■ PRIHT "BETOH. ........ 2, 4" ■ PRIHT"BLEI . „ ....... .11,3" -P 

R INT "BUCHENHOLZ. - . 0, 7" = PRIHT" EICHENHOLZ. . . 0, 8" ' PRIHT"EIS. . . .... 9 , 92" ■ PRIHT 

"GIPS 0,97 

21 F. PPIHT"GOLD. .......... 1.9,3" ' PR I NT" GUSSE I SEH ' 7,25" = PRIHT "KORK. . 0,2" : 

PR I NT " KUPFER 8 , 9 " ■ PR I NT " MRRMOR . , u „ 2 , 7 " 

21 6 Gn:=:l IR234 : f:( S = G0TO21 7 

21.7 PRIHT "SfiHD. „..„„.„. 1 , 6" ■■ PRIHT"STRHL ..... 7, 8" = PRIHT :PRINT"BENZIN .... 
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1 , 03" •• PRINT"GUECKSILBER. . 
..„„.*... 9, 90129" *PRINT M Sfl 



, 7 ■• : pf? i NT " MEERUflSSER 1 , 025 " ■ PR I NT " M I LCH ........ 

. 13,6" >PR INT "WASSER. ....... 1 " 

218 PR I NT ' PR I NT " KOHLEND I OX VD .. » . 8 , 00 1 98 " = PR I NT " LUFT . . 
IJ ERSTOFF , 08 1 43 " ■ PR T NT " WASSERSTOFF , 80090 " 

219 G0SUB234 ■ GOT 02 1 2 

228 CLS : PR I NT§3 .. G3* ■ PR I NTS35 , 02$ = PR I NT 

221 IHPUT" WINKEL " ; W 

222 PRINTER INT G2* 

223 B« W*P I •••- 1 88 ' W 1 *S I N< B VCOSC B > * PR I NT " RRD I RND = " .; B 

224 PR I NT " S I NUS = " ; S I H( B > 
??5 PPT NT" r.n*. ■■ " -, r:f\9\( B -f 

226 PR I NT " TANGENS ■ " ; U 1 

227 G0SUB234 = GOTO220 

22« CLS '■ PR I NT§3 , G3$ •■ PR I NT§35 , 03$ = PR I NT 

229 I NPUT " U I NKEL " ; 1*1 = W~< W*P I V 188= I NPUT " GROESSE " • R 
238 X=R*COS(W>=Y*R*SIN<W> 

231 PRINTER INT G2* 

232 PR I NT " RECHTU I NKEL IGE K ORD I NRTE N = ' ' = P R I N T " X - " ; X ! PR INT" V « " ; V 

233 GOS! IB234 = GOTO 228 

234 PR I NT §489 , " 1 -NEUE BERECHNUNG 8-MENUE " .; 

235 I$*INKEY4'IF I*=""THEN235 

236 IF T*s»i»THEN RETURN ELSE IF I$="8"THEN RUN ELSE 235 

237 G0T0234 
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GP-5ÖA und QP-50S oer kleine lto -asr-oRucn 



W Normalpapier (Einzelblatt + Rolle) 



• 5 x 8 Punktmatrix 

■ Grafik durch Einzelpunkt-Ansteuerung 



X grün, öiau vio 
Direkt an Sinclair ZX-81 
anschließbar (GP-SOS) 
Schnittstelle: Centronics 
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ZX-81 



Go-Ball 



Zur Erleichterung bei der Eingabe der Daten, verweisen wir 
übrigens auf die Seite 9. Dort finden Sie unter Tips + Tricks, 
den RenvSchreiber. Der Rem-Schreiber übernimmt die 
Reservierung von 475 Zeichen! 

Doch nun zu Go-Ball. Go-Ball ist eine ZX-81 Version des 
bekannten Break-out. Das Programm ist vollständig in 
Maschinensprache geschrieben und hat eine sehr gute 
Graphik. Mit einem beweglichen Schläger müssen Sie ver- 
suchen, die am oberen Bildrand festgehaltenen Bälle abzu- 
schießen. Ein schwieriges Unterfangen, da sämtliche Bälle, 
erst nach unten fallen und mit dem beweglichen Schläger 
wieder zurückgeschleudert werden müssen. Außerdem 
kann die Geschwindigkeit des Spiels gesteigert werden. Der 
Schläger wird mit Taste 5 und Taste 8 gesteuert. 



EUER DIE MASCHINEN-SPRACHE 

MUESSEN SIE 475 ZEICHEN RESERVIEREN, 

AM BESTEN IN DER ERSTEN ZEILE « 

1. REM C475 ZEICHEN) 
MC-LADE ROUTINE 
2 FOR X* 16514 TG 16984 
SCROLL 
INPUT V 
SCROLL 

6 PRINT X,Y 

7 NEXT X 

ANSCHLIESSEND SIND DIE ZEILEN 
VON 2 BIS 7 ZU LOESCHEN. 



?f» JJs PJS *J* rf+ rf^ *f+ rf+ *f» »J» *J» «T» «T» "T* *f* *»* *»* "I* *T* "1* 'T* 



■3 

4 

er 
■ J 



]>;5i4 


- 42 


16573 - 


64 


16632 


- 167 


16691 - 


66 


1.6750 - 


254 


16809 - 


195 


16513 


- 12 


16574 - 


43 


16633 


— 23? 


16692 - 


254 


16751 - 


4 


16810 - 


115 


16516 


- 64 


16575 - 


54 


16634 


- 82 


16693 - 


5 


16752 - 


192 


16811 - 


66 


16517 


- 17 


16576 - 


10 


16635 


- 58 


16694 - 


32 


1.6733 - 


6? 


16812 - 


35 


16513 


- 164 


16577 - 


34 


1 6636 


- 84 


16695 - 


223 


16754 - 


1 


16813 - 


126 


16519 


- 2 


16578 - 


226 


1 6637 


- 66 


16696 - 


62 


16755 - 


50 


16814 - 


254 


1 6520 


- 25 


16379 - 


64 


16638 


- 254 


1669? - 





1.6756 - 


84 


16815 - 





16521 


- 34 


16380 - 


oc 


16639 


- 1 


16693 - 


30 


16757 - 


66 


16816 - 


43 


1.652.2 


- 226 


16581 - 


35 


16640 


- 4R 


16699 - 


84 


16758 - 


61 


16817 - 


43 


16523 


- 64 


16382 - 


35 


16641 


- 43 


16700 - 


66 


16759 - 


50 


16813 - 


40 


16524 


- 62 


16583 - 


54 


16642 


- 43 


16701 - 


43 


16760 - 


83 


16819 - 


223 


16525 


- 9 


1.6584 - 





16643 


- 126 


16702 - 


25 


16761 - 


66 


16820 - 


62 


16526 


- 50 


16585 - 


24 


16644 


- 254 


16703 - 


195 


16762 - 


35 


16821 - 





1652? 


- S5 


16586 - 


26 


1 6645 


- 


16704 - 


241 


16763 - 


167 


16822 - 


50 


16528 


- 66 


1 6587 - 


58 


16646 


- 202 


16705 - 


64 


16764 - 


237 


16823 - 


33 


16529 


- 62 


16588 - 


228 


1664? 


- 59 


16796 - 


25 


16765 - 


82 


16824 - 


66 


16530 


- 15 


16589 - 


64 


16648 


" 66 


16707 - 


58 


16766 - 


167 


16825 - 


23? 


16531 


- 50 . 


16590 - 


254 


16649 


- 254 


16708 - 


34 


16767 - 


237 


16826 - 


82 


16532 


- 228 


16591 - 


25 


16650 


- 133 


16709 - 


66 


16763 - 


32 


16827 - 


35 


16533 


- £4 


16592 - 


40 


16651 


- 32 


16710 - 


254 


16769 - 


•35 


16828 - 


237 


16534 


- 42 


16593 - 


19 


16652 


- 10 


16711 - 


1 


16770 - 


195 


16829 - 


82 


16535 


- 12 


16594 - 


- 60 


16653 


- 62 


1.6712 - 


40 


16771- - 


59 


16830 - 


195 


16536 


- 64 


16595 - 


- 50 


16654 


- 1 


16713 - 


119 


1677? - 


66 


16831 - 


59 


1653? 


- 17 


16596 - 


- 228 


16655 


- 50 


16714 - 


43 


16773 - 


58 


16832 - 


66 


16538 


- 236 


16597 - 


- 64 


16656 


- 84 


1.6715 - 


126 


16774 - 


3" 


16833 - 


35 


16539 


- 


16598 - 


- 54 


16657 


- 66 


16716 - 


254 


16775 - 


64 


16834 - 


126 


16540 


- 25 


16599 - 


- Pi 


16658 


- 35 


16717 - 





16776 - 


254 


16835 - 


254 


16541 


- 34 


16600 - 


- 35 


1 6659 


- 25 


16718 - 


202 


16777 - 


223 


16836 - 





16542 


- 86 


16681 - 


- 34 


16660 


- 195 


16719 - 


59 


16778 - 


3° 


16837 - 


202 


16543 


- 66 


16602 - 


- 226 


16661 


- 241 


16720 - 


66 


16779 - 


32 


16838 - 


59 


16544 


- 42 


166PI3 - 


- 64 


16662 


- 64 


16721 - 


254 


16780 - 


58 


16839 - 


66 


16545 


-.226 


16604 - 


- 35 


16663 


- 254 


16722 - 


133 


16781 - 


228 


16848 - 


254 


16546 


- 64 


1.6605 - 


- 35 


16664 


- 32 


1.6723 - 


32 


16782 - 


64 


16841 - 


5 


16547 


- 58 ■ 


166Ö6 - 


- 54 


16665 


- 32 


16724 - 


10 


16783 - 


254 


16842 - 


32 


16543 


- 38 


16607 - 


- 10 


1 f. 66.6 


- 8 


16725 - 


62 


16784 - 


4 


16843 - 


10 


16549 


- 64 


16668 - 


- 24 


16667 


- 62 


16726 - 


1 


16785 - 


40 


16844 - 


62 


16550 


- 254 


16609 - 


* 3 


16668 


- 1 


16727 - 


59 


16786 - 


25 


16845 - 





16551 


- 239 


16610 


-■13 


16669 


- 50 


16728 - 


84 


16787 - 


62 


16846 - 


50 


16552 


- 200 


16611 


- 7? 


16670 


- 83 


16729 - 


PA 


16783 - 


1 


16847 - 


84 


16553 


- 254 


16612 


- 15 


16671 


- 66 


16730 - 


55 


16789 - 


50 


16848 - 


66 


16554 


- .223 


16613 


- 17 


16672 


- 195 


16731 - 


35 


16790 - 


84 


16849 - 


43 


16555 


- 40 


16614 


— *&-* 


16673 


- 49 


16732 - 


195 


16791 - 


66 


16850 - 


43 


16556 


- 6 


16615 


- 


16674 


- 66 


16733 - 


59 


16792 - 


61 


16851 - 


195 


16557 


- 254 


16616 


- 42 


16675 


- 62 


16734 - 


66 


16793 - 


50 


16852 - 


59 


16558 


- 247 


1661.7 


- 86 


16676 


- 1 


16735 - 


254 


16794 - 


83 


16853 - 


66 


16559 


- 40 


16618 


- 66 


16677 


- 50 


16736 - 


10 


16795 - 


66 


16854 - 


254 


16560 


- 26 


16619 


- 126 


16678 


- 83 


16737 - 


40 


16796 - 


167 


16835 - 


10 


16561 


- 24 


16620 


- 254 


16679 


— 66 


16738 - 


34 


16797 - 


237 


16856 - 


40 


16562' 


- 59 


16621 


- 10 


16630 


- 


16739 - 


254 


16798 - 


82 


16857 - 


33 


16563 


- 58 


16622 


- 260 


16681 


- 25 


16740 - 


52 


16799 - 


237 


16858 - 


254 


16564 


- 228 


16623 


- 54 


16682 


- 195 


16741 - 


202 


16800 - 


82 


16859 - 


52 


16565 


- 64 


16624 


- 


16683 


- 88 


16742 - 


49 


16801 - 


25 


16860 - 


202 


16566 


- 254 


16625 


~ 58 


16684 


- 66 


16743 - 


66 


16302 - 


35 


16861 - 


49 


1656? 


- 4 


16626 


- 83 


1.6685 


- 35 


16744 - 


254 


16803 - 


35 


16862 - 


6f. 


16568 


- 40 


16627 


— 66 


16636 


- 126 


16745 - 


2 


163R4 - 


54 


16863 - 


254 


16569 


- 43 


16628 


- 254 


16687 


- 254 


16746 - 


192 


16805 - 


23 


16864 - 


1 


16576 


- 61 


16629 


- 1 


16638 


- 


1674? - 


53 


16806 - 


34 


16865 - 


192 


16571 


- 50 


16630 


- 40 


16689 


- 2R2 


16748 - 


228 


16307 - 


86 


16866 - 


58 


16572 


- 228 


16631 


- 74 


16690 


- 59 


16749 - 


64 


16898 - 


66 


16867 - 


228 
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16868 
16869 
16870 
16871 
16872 
16873 
16874 
16875 
16876 
16877 
16878 
16879 
16880 
1.6881 
16882 
16883 
16884 
1 6885 
16886 
16887 
16888 



- 64 

- 254 

- 25 

- 192 

- 62 

- 

- 50 

- 83 

- 66 

- 50 

- 84 

- 66 

- 167 

- 237 

- 82 

- 167 

- 237 

- 82 

- 43 

- 43 

- 195 



16889 
16890 

16391 

16892 

16893 

1 6894 

16895 

1 6896 

16897 

16898 

16899 

16900 

16901 

1 6902 

16903 

16904 

16905 

16906 

16907 

16988 

16909 



- 59 



58 
38 

64 

254 

247 

05 

26 

58 

228 

64 

254 

?5 

40 

19 

62 



50 

83 
66 



16910 
16911 
16912 
16913 
16914 
16915 
16916 
16917 
16918 
16919 
16920 
16921 
16922 

16924 
16925 
16926 
16927 
16928 
16929 
16930 



84 

66 

43 

237 

82 

54 

34 ' 

86 

66 

-195 

97 

66 

43 

126 

254 



35 
40 
230 



16931 - 


• 62 


16952 


- 254 


16973 


- 


16932 - 


• 


16953 


- 110 


16974 


- 32 


16933 - 


- 50 


16954 


- 200 


16975 


- 244 


16934 - 


- 83 


16955 


- 54 


16976 


- 1.95 


16935 - 


- 66 


16956 


- 23 


16977 


- 160 


1.6936 - 


" 


16957 


- 34 


16978 


- 64 


16937 - 


- 237 


1 6958 


- 36 


1 6979 


- 1 


16938 - 


- 82 


16959 


— 66 


16980 


- 


16939 - 


- 167 


16960 


-. 22 


16981 


- 1 


16940 - 


- 237 


16961 


- 255 


1.6982 


- 105 


16941 - 


- 82 


16962 


- 30 


16983 


- 77 


16942 - 


- 195 


16963 


_ 9 






16943 - 


- 59 


16964 


- 29 






16944 - 


- 66 


16965 


- 21 






16945 - 


- 58 


16966 


- 122 






16946 - 


- 85 


1.6967 


- 254 






16947 - 


- 66 


16968 


- 






16948 - 


- 60 


16*969 


- 32 






16949 - 


- 50 


16970 


- 250 






16950 - 


- 85 


16971 


- 123 






16951 - 


- 66 


16972 


- 254 







10"REM FRIEDRICH HUNOLD 

11 REM NELKENWEG 19 

12 REM 4290 BOCHOLT 
20 REM 

22 REM BREflKQUT-VERSIQN 

23 REM GO-BRLL -C- 
30 SLOW 

40 PRINT " G O-BRL L 

50 PRINT "****STUFE 1-15******" 

60 INFUT 8 

70 IF 8>8 AND S<16 THEN GOTO 90 

80 PRINT 

85 GOTO 50 

90 PORE 16963,(19-8) 

100 PRINT 

101 PRINT "8TEUERNG MIT ■ " 

102 PRINT ,, LINK8«5*****RECHT8«8" 

103 PRINT M PRUSE*7" 

104 PRINT " TRSTE" 

105 IF INKEY»« ,,H THEN GOTO 105 

106 POKE 16418,0 

110 LE T fi$~ " xxx xx xxxx x xxxxxxxxxx xxx.y 
115 LET R*sbR*+ m "+CHR* 133+" 



"+CHR* 5+ 1 



120 FOR N«l TO 5 

130 LET H»"R*+" "-fCHR* 133+" OOOOaOOOOOQQOOOÖOOOGOO "+CHR* 5+' 



140 NEXT N 

150 FOR N-I TO 13 

160 LET fi**f»+" "+CHR* 133+" 

Computronic —--—_____— «_^_^_»___ 



"+CHR* 5+" 
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20? 
210 
220 
230 
248 
250 
269 
265 
267 
268 
269 
270 
275 
280 
283 
290 
320 



340 
510 
520 

530 

5 



A* 

RT 

m 

RT 



7,4;CHR* 23 

20,15.;CHR$ 10;CHRS 10;CHR* 10 



22,0;" 



% G -BAL L 



T E 



170 HEXT N 

180 LET R*»R*+" "+CHR* 2+ 
200 CLS 
205 RR INT 

PRIMT 

FRINT 

FR INT 

SLOW 

PQKE 16979,1 

POKE 16980, 1 

POKE 16981,0 

PRIHT RT 23,0;" ■ TR? 

IF INKEY**"" THEN GOTO 267 

1F INKEY»<>"" THEN GOTO 268 

RR INT RT 23,0;" 

LET L«USR 16514 

IF FEEK 16981-110 THEN GOTO 

LET B**STR$ PEEK 16981 

LET BS=*"00" RND LEN B**l )+( 

IF VflL B**85 THEN GOTO 

PRINT RT 10,0;" SIE HABEN 
* (CODE B*(3>+128>.i" PUNKTE" 
330 PRINT "ERREICHT" 

GOTO 600 

PRIHT RT 2,0; "#*#****#****#******#************ 
" HERZLICHEN GLUECKHUNSCH. .... 

" SIE SIND EIN BEACHTLICH 
" GUTER SPIELER 

RT 15,0;" T? NOCHEINMflL ??" 
J / N" 



"+CHR* 1+" 



500 



SOS 

"0" RND LEN B$=2)*B« 
iCHR* (CODE B*<1>+128)jCHR* (CODE B*<2)+128>;CHR 



40 
550 
560 
570 

600 

601. 
610 
615 
620 
630 
650 

800 

900 

905 
910 
920 

9999 



PRIHT 

PRINT 
PRINT 
PRIHT 
PRIHT 
PRIHT 
PRINT 
PRIHT 



PR I NT " — — — — " 

IF INKEY*<>"" THEN GOTO 615 

IF INKEY*«"" THEN GOTO 620 

IF IHKEY*<>"N" THEN GOTO 200 

GOTO 9999 

REN LRDE-ROUTINE 

SR VE "GO-BRLl" 

REM 

CLS 

RUH 

STOP 
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Noch ein Spiel für den ZX-81 in Maschinensprache ge- 
schrieben. Die Zeichenreservierung kann ebenfalls der 
Rem-Schreiber (bitte Seite 9 nachschlagen) übernehmen. 

Grand-Prix ist das allseits bekannte Automobilrennen. In 
einer, Ihnen vorgeschriebenen Zeit, müssen Sie eine be- 
stimmte Wegstrecke zurücklegen. Aber Vorsicht! Es 
kommen Ihnen Fahrzeuge entgegen denen Sie ausweichen 
müssen! Haben Sie einige Runden geschafft und sind 
mit keinem Auto kollidiert, kommen Sie in die Punkte- 

FUER DIE MASCHINEN-SPRACHE 

MUESSEN SIE 545 ZEICHEN RESERVIEREN. 

HM BESTEN IN DER ERSTEN ZEILE 

1 REM <545 ZEICHEN) 
DANN BENUTZEN SIE FOLGENDE 
Mf^-L ADE-ROUTINE ' 

10 FOR X=16514 TO 17858 

20 SCROLL 

39 INPUT Y 

40 SCROLL 

5d PRINT X,Y 

m WEHT X 
WENN SIE ALLES EINGEGEBEN HABEN 
DANN LOESCHEN SIE DIE ZEILEN 
VON 10 BIS m 
UND SAVEN DAS MC-PROGRAMM 
DANACH GEBEN SIE DIE RESTLICHEN 
PROGRAMMZEILEN AB ZEILE 89 EIN. 



wertung. Ihren Rennwagen steuern Sie mit den Tasten 5 
und 8. 

Wir glauben, daß einigen ZX-81 Fans, Grand-Prix immer 
noch in der Sammlung fehlt. Darum, so hoffen wir, liegen 
wir richtig, das Programm in unser Heft aufzunehmen. 

Wir jedenfalls wünschen eine gute Fahrt! 



^^^^jfc^^^^^c^^^^^^^c^^^^^: 




IRAND-PRIX 



80- 

81 

82 

83 

84 

85 

86 

90 

100 

110 

120 
130 
140 
158 
160 
180 

4000 
9910 

9020 
9030 
9040 
9050 

9060 



FRIEDRICH M.HUNOLD 
NELKENWEG 19 
4290 BOCHOLT 

GRAND-PRIX -C- 



•REM 

REM 

REM 

REM 

REM 

REM 

REM 

LET HS=0 

POKE 16418.- 

PRINT AT 22, 8j "SCORE «0 



"iTAB 16; "HIGH SCORE' " j HS.; "0" ; AT 0,0; 



RAND USR 16989 

LET H«<PEEK 1S446+256*PEEK 16447) 

IF H>H8 THEN LET HS»H 

1F INKEY^O'*" THEN GOTO 150 

IF INKEY*«"" THEN GOTO 160 

GOTO 110 

FOR F« 165 14 TO 17058 STEP 5 

PRINT F; 

LET A=7 

FOR G=F TO F+4 

PRINT TAB RjPEEK Gj 

LET A-A+5 

NEXT G Fortsetzung 



9070 


PRINT 








JW 9080 


HEXT ! 


F 






-,/ 9090 


STOP 








^ 9100 


SflVE 


"GRAND- 


-PRI 


X 


9110 


RUN 
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16514 
16515 
16516 
1651? 
1.6518 
16519 
16520 
1.6521 
16522 
16523 
16^24 
16525 
1 6526 
16527 
16528 
1 6529 
16530 
16531 
16532 
16533 
16534 
1 6535 
16536 
1 653? 
16538 
16539 
16540 
16541 
16542 
16543 
16544 
1.6545 
16546 
1 6547 
16548 
16549 
1655Q 
16551 
16552 
16553 
16554 
16555 
16556 
1655? 

16558 
16559 
16569 
16561 
16562 
1 6563 
16564 
16565 
16566 
1656? 
1.6568 
16569 
1 6570 
16571 
16572 



- 128 

- 128 

- 128 

- 5 

- 150 

" 1 ?? 

- 38 

- 128 

- 5 

- 148 

- 133 

- 128 

- 128 

- 128 

- 5 

- 148 

- 133 

- 128 

- 59 

- 128 



16573 
16574 
16575 
1 6576 
16! 



18 



ö£. 



57? 
578 



- «; 



■5 - 



150 

133 

128 

128 

128 

135 

131 

4 

133 

136 



- er 



1 

14 

22 
6 

10 

62 

215 

16 

"253 

6 

12 
62 

128 
215 
16 
253 



~ 10 

- 62 



215 

16 
253 



165 

16579 

16580 

16581 

16582 

16583 

16534 

16585' 

16586 

16587 

16588 

16589 

16590 

16591 

16592 • 

16593 ■ 

16594 • 

16595 ■ 

16596 • 

16597 • 

16598 ■ 

16599 ■ 

16600 - 

16601 ■ 
1.6602 - 

16603 • 

16604 - 

16605 - 

16606 - 

16607 - 

16608 - 

16609 - 

16610 - 

16611 - 

16612 - 

16613 - 

16614 - 
16615 
16616 
1661.7 
16618 
16619 
16620 
16621 
16622 
16623 
16624 
16625 
16626 
16627 
16628 
16629 
1.6630 
16631 



14 
12 

34 

60 

64 
oo 

0" 

Fl 

34 

- 62 

- 64 

- 66 

- 64 

- 6 

- 16 

- 54 

- 

- 35 
~ 16 

- 251 

- 62 

- 1 

- 50 

- 64 

- 64 

- 62 

- 255 

- 237 

- 91 

- 60 

- 64 

- 205 

- 133 

- 66 

- 17 

- 130 

- 64 

- 205 

- 31 

- 66 

- 91 

- 60 

- 64 

- 205 

- 133 

- 66 

- 6 

- 2 

- 126 
-' 254 

- 128 

- 40 



16632 - 


254 


16633 - 


5 


16634 - 


40 


16635 - 


5 


16636 - 


254 


16637 - 


123 


16638 - 


54 


^6639 - 





16640 - 


192 


1.6641 - 


35 


16642 - 


35 


16643 - 


126 


16644 - 


254 


16645 - 


128 


16646 - 


40 


16647 - 


q 


16648 - 


254 


16649 - 


138 


16650 - 


40 


16651 - 


•p, 


16652 - 


254 


16653 - 


5 


16654 - 


54 


16655 - 





16656 - 


192 


1665? .- 


17 


16658 - 


64 


16659 - 





1.6660 - 


25 


16661 - 


16 


1.6662 - 


220 


16663 - 


17 


16664 - 


98 


16665 - 





16666 - 


237 


16667 - 


82 


16668 - 


62 


16669 - 


38 


16670 - 


190 


16671 - 


192 


16672 - 


62 


16673 - 


40 


16674 - 


6 


16675 - 


50 


16676 - 


16 


16677 - 


254 


16678 - 


61 


16679 - 


32 


16680 - 


249 


16681 - 


42 


16682 - 


12 


16683 - 


64 


16684 - 


17 


16685 - 


16 


16686 - 





1668? - 


25 


16688 - 


17 


16689 - 


P,9, 


16690 - 


0" 
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16691 - 


58 


16692 ™ 


62 


16693 - 


64 


16694 » 


15 


16695 - 


48 


16696 - 


3 


16697 - 


54 


16698 - 


■5 


16699 - 


25 


16709 - 


6 


16701 - 


11 


16702 - 


54 


16793 - 


128 


16794 - 


25 


16705 - 


54 


16706 - 


5 


16787 - 


25 


16708 - 


16 


16789 - 


248 


16710 - 


205 


16711 - 


187 


16712 - 


■i! 


16713 - 


237 


16714 - 


91 


1671.5 - 


60 


1671.6 - 


64 


16717 - 


124 


16718 - 


254 


16719 - 


247 


16720 - 


32 


16721 - 


20 


16722 - 


205 


16723 - 


1 ^ 


16724 - 


66 


16725 - 


1- 


1.6726 - 


€•€' 


16727 - 





16728 - 


54 


16729 - 


128 


1.6730 - 


9 


16731 - 


54 


16732 - 


128 


16733 - 


28 


16734 - 


123 


16735 - 


254 


16736 - 


20 


16737 - 


32 


16738 - 


1 


16739 ~ 


29 


16746 - 


24 


16741 - 


25 


16742 - 


124 


16743 - 


254 


16744 - 


223 


16745 - 




16746 - 


20 


16747 - 


205 


16748 - 


133 


16749 - 


66 



16750 

16751 

16752 

16753 

16754 

16755 

16756 

1.6757 

16758 

16759 

1676« 

16761 

16762 

16763 

16764 

16765 

1.6766 

16767 

16768 

16769 

16770 

16771 

16772 

16773 

16774 

16775 

16776 

16777 - 

16778 - 

16779 -• 

16780 - 

16781 - 
1.6782 - 

16783 - 

16784 - 

16785 - 

16786 - 

16787 - 

16788 - 
1.6789 - 

16790 - 

16791 - 

16792 - 

16793 - 

16794 - 

16795 - 

16796 - 

16797 - 

16798 - 
16793 - 

16800 - 

16801 - 

16802 - 

16803 - 

16804 - 

16805 - 

16806 - 
1.6807 - 
16808 - 



- 1 

- 66 

~ 

~ 54 

- 128 

"• 9 

- 54 

- 128 

- 123 

- 254 

- 9 

- 32 

- r 

- 28 

- 237 

- 88 

- 60 

- 64 

- 205 

- 133 

- 66 

- 62 

- 255 

- 17 

- 130 

- 64 
"• 205 

- 31 

- 66 

- 1 

- 6 

- 22 

- 285 

- 245 



62 
64 



67 

62 

64 

205 

152 

10 

62 

28 

215 

58 

62 

64 

203 

191 

254 



16809 


- 127 


16810 


- 58 


16811. 


- 64 


16812 


- 64 


16813 


- 32 


1681.4 


— 9 


16815 


- 60 


16816 


- 254 


16817 


- 5 


1681.8 


- 32 


16819 


- 1 


16820 


- 61 


16821 


~ 50 


16822 


- 64 


16823 


- 64 


1 6824 


- 71 


1 6825 


- 33 


16826 


- 66 


16827 


- 64 


16828 


™ 197 


16829 


- 203 


16830 


- 70 


16831 


- 32 


16832 


- 36 


16833 


- 203 


16834 


- 198 


16835 


- 58 


16836 


- 52 


16837 


- 64 


1 6838 


- 15 


1 6839 


- 48 


16840 


- 4 


16841 


- 203 


16842 


- 206 


1 6843 


- 24 


1.6844 


- 2 


16845 


- 203 


1 &84ß 


~ 142 


1.6847 


- 230 


16848 


— "> 


16849 


- 80 


1685Q 


I 


16851 


- fiR 


1.6852 


- 71 


1 6853 


- 62 


1 6854 


~ 


1.6855 * 


- 198 


16856 • 


- i~ 


16857 - 16 


16858 - 


- 252 


16859 • 


- 131 


16860 - 


- 95 


16861 - 22 


16862 - 


- 253 


16862 - 


- 35 


16864 - 


- 115 


16865 ■ 


- 35 


16866 - 


- 114 


16867 - 


- 43 
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16868 - 


43 


16869 - 


203 


16870 - 


78 


16871 - 


32 


16872 - 


10 


16873 - 


58 


16874 - 


62 


16875 - 


64 


16876 - 


15 


16877 - 


48 


16878 - 


4 


1.6879 - 


35 


16880 - 


35 


16881 - 


24 


16882 - 


37 


16883 - 


35 


16884 - 


94 


16885 - 


35 


16886 - 


86 


16887 - 


229 


16888 - 


213 


16889 - 


122 


16890 - 


254 


16891 - 


■?3 


1689.3 - 


56 


16898 - 


2 


16894 - 


22 


16895 - 





1.6896 - 


205 


16897 - 


133 


16898 - 


GS 


16P.99 - 


17 


16909 - 


142 


16901 - 


64 


16902 - 


205 


16908 - 


31 


16904 - 


66 


1.6905 - 


209 


16906 - 


225 


1.6907 - 


28 


16908 - 


122 


1 6909 - 


114 


16910 - 


254 


16911 - 


22 


16912 - 


32 


16913 - 


6 


16914 - 


43 


16915 - 


43 


1.6916 ~ 


203 


16917 ~ 


134 


16918 - 


35 


16919 - 


f^c; 


16920 - 


35 


16921 - 


193 


16922 - 


16 


16923 - 


160 


16924 - 


195 


16925 - 


234 


16926 - 


64 



68 



16927 - 


235 






16986 - 


16 


16928 - 


6 






.6987 - 


241. 


16929 - 


4 






16988 - 


201 


16930 - 


254 






16989 - 


205 


16931 - 


253 






L6990 - 


166 


15332 f 


32'"' 






16991 - 


64 


16983 - 


5 






16992 - 


62 


16934 - 


Cj 






[ 6993 — 


">Bj*Sj 


16935 - 


35 






16994 - 


237 


16936 - 


35. 






L6995 - 


91 


16937 - 


35 






6996 - 


60 


16938. — 


60 






16997 - 


64 


16939 - 


254 






L6998 - 


205 


16940 - 


254 






16999 - 


133 


16941 - 


32 






17000 - 


66 


16942 - 


er 






[7001 - 


17 


16943 - 


35 






7002 - 


154 


16944 - 


35 






L7003 - 


64 


16945 - 


35 






L7004 - 


205 


1.6946 '-. 


er 






7005 - 


31 


16947 - 


6F1 






7006 - 


€6 


1 6948 - 


254 






17007 - 


14 


16949 - 


255 






7008 - 


30 


16950 - 


32 






17009 - 


62 


16951 - 


4 






7010 - 


62 


16952 - 


35 






701 r - 


237 


16953 - 


35 






7012 - 


71 


16954 - 


55 






7013 - 


6 


16955 - 


5 






7014 - 


255 


16956 — 


254 






7015 - 


ie" 


16957 - 


19 






7016 - 


254 


16953 - 


32 






7017 - 


61 


16959 - 


1 






7018 - 


61 


16960 - 


5 






7019 - 


32 


16961 - 


254 






7020 - 


246 


16962 - 


29 






7021 - 


18 


16963 - 


32 






7022 - 


3'-^ 


16964 - 


2 






7028 - 


241 


16965 - 


5 






7024 t 


62 


16966 - 


5 






7025 - 


30 


1.6967 - 


254 






7026 ~ 


237 


16968 - 


21 






7027 - 


71 


16969 - 


32 






7028 - 


201 


16970 - 

16971 - 

16972 - 

16973 - 

16974 - 

16975 - 

16976 - 

16977 - 

16978 - 


6 

i 

197 
1 

3 



237 
176 


17045 - 

17046 - 


20 ] 
6 j 


7029 - 

7030 - 


38 




17Ö47 - 

17048 - 

17049 - 

17050 - 

17051 - 
17*052 - 
1.7053 - 

17054 - 

17055 - 

17056 - 

17057 - 

17058 - 




74. 

9 

75 1 

9 1 

237 ] 
7*5 


7031 - 

7032 - 

7033 - 

7034 - 

7035 - 

7036 - 

7037 - 


106 

203 - 

37 

203 

37 

203 

37 


16979 - 

16980 - 

16981 - 

16982 - 

16983 - 

16984 - 


235 

1 

30 



9 
23* 


12 

64 

3 

9 

201 j 


7038 - 

7039 - 

7040 - 

7041 - 

7042 - 

7043 - 


293 
37 
203 
20 

203 
37 


16985 - 


193 


r 




7044 - 

1 


203 
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Wrc sie ihren oriainai-Smciair- 

Bekommen, sagt ihnen 

unser Kancüsroachwais. 

schreiben sie uns, 

sinciai r-oe nera i vertreru no 

Deutschland. Postfach 6352 

SD13 OttoBrunn. 
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Missile Comment 



In »Missile Comment« werden Sie zum »Commander« 
einer Abwehrwaffe. Bei Spielbeginn erscheint auf dem 
Bildschirm ein Fadenkreuz, das Sie treffsicher steuern 
müssen. Damit sollen gefährliche Strahlen, die in die Erde 
einschlagen wollen, abgewehrt werden. Garnicht so ein- 
fach, denn die Gefahr lauert überall und kommt aus allen- 
Richtungen. 

Wenn Sie also nicht schnell und treffsicher reagieren, 
dann wird alles zerstört und Sie verlieren das Spiel. 

»Missile Comment« hat eine gute Akustik und ist über die 
Tastatur steuerbar. Wir hoffen, daß unseren Spectrum' 
Freunden diese Spielversion gefällt! 

**4? *3f "& "& ^* *$f *$f *1* *J* *i* *if *if *if \t* *1* *i* *1* *t» *1* •!<• *1* 
*J^ *!* *J* *T^ *T^ *** *T* *•* *"!* *T* ^i* *T^ *T* *T* *4* *T* *T* ^* ^^ *T^ *T^ 

Domputronic ' 
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DIM b<5)> D1M c<5>> DIM d<3) 



1 rem Missi L e c o ffl m e n t 

© 1994 by O 1 1 frie d 
S c h ff» i d t 
5 B ORDER 0: PftPER 0: INK "7: B 
RIQMT 1 : ÖLS 

7* GO TD 91000 

10 LET weasch 

12 LET S.täZ=0 

IS LET welsß 

■a & PR.I.NT OT S 1 ... Ö l X W K 1 

SS LET Z~Ö 

:30 PR INT RT 20 , l ..INK 3 ; 

kJUx JkJUi .1 . J t * i . M » * » A-*Ua 

35 DIM sC6V LET score*@ 

40 DIM a<5)' DIM *<5> = DIM fC5> 

45 GO SUB 50' GO TO IBS . _ 

5Pi FOR i-1 TO 5' LET Ä C 15=174 > LET bC i >=1NT <RND*195J+a0 

60 LET xbIHT <RND*2)+1* LET y-INT <RND*2H1 

GS LET e< i >«a< i > : LET f < i >-bC i > 

79 IF u«l THEN LET cC i >-x 

80 IF y-2 THEN LETcCi^x 
90 LET de: i >"INT CRND*6H4> NEXT i 
95 RETURN 

105 LET zae=l 
110 LET Ä«U» LET b*15 
300 FOR i=l TÖ 5 

203 PLOT b<.ij>9<i':r. DRHW IHK S:> BRIGHT 1 :>c<. i >,-cK i > 
21.0 LET b< i >-b< i >+c< i ) : LET a< i )«4< i >-cK i > 
220 IF *<i><«16+we OR b( i )>«246 OR b<Ii><-10 THEN GO SUB 16 
230 IF INKEYSO"" THEN GO SUB 300 
240 NEXT i : GO TO 208 
390 LET al-ä« LET bl*b 

310 LET wl+< INKEY«="z" FIND a<17X I NKE Y*» " .3. " HND a>l > 
320 I ET b*b-K INKEYi»"m M AND b<30>-< INKEY»-"b" ÄND b>l > 
330 PRINT RT äl,bl;" "jRT a.b.; INK. 6; -PRPER 2;"+*' 
240 IF INKEYS^'V THEN LET score=score-I « GO SUB 400 
350 RETURN 

480 PRINT RT a,b; INK. 6) PRPER 2.;" " 

410 BEER „01,-10= BEER „03,-5 m ♦♦ 

420 FOR o=l TO 7 = PRINT RT a~l,b»lj INK o.i M Äfc*'.HT a,b-l; INK öj£WK-;R 
T a+l,b-lJ INK oiW' ! BEER .804,5= HEXT o 

438 PR I NT RT a- 1 , b- 1 ; " " j RT a , b- 1 > RT a+ 1 , b- 1 j " 

440 IET aP«b*8+3< LET bP«173K**8+3> 

445 FOR o-l TO 5 ■ ^ ntn , w . „,__ TU _.. 

4 «!0 if b<o»-*P-12 RHD b<o><«äP + 12 HND a<oX>=bP-12 RND a<o^*bP + l<! THEN 
LET scor^-ieöre+10' LET i=o= PRINT #0;RT 1, 14; score = GO SUB 1000 

460 NEXT o 

470 RETURN 

580 RETURN 

608 LET zae~l 

685 LET wel-0 

6t0 FOR I«l TO 5= GO SUB 1088' NEXT i 

620 PRINT RT a,b;. " " 

638 LET we«we+i 

64H FOR ' i«l TO 20' BEER ,805,1= BEER ■ 005^20-1« HEXT i 

650 PRINT RT 11 .0jwe-sch; " te Welle abgewehrt" 

660 LET sta=8' FOR 1-1 TO 6« IF s< i )»0 THEN LET sta=sta+25 

670 NEXT i < LET scor*"*cöre+sta . 

680 PRINT "Du hast bis Jetzt "i score;" Punkte erreicht 

fi<50 IF INKEY»"" 11 THEN GO TO 690 
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700 PRINT RT 11,0.!" 

710 PRINT RT 12,0 j" 

720 PRINT RT 13,0;" 

730 RETURN 

740 GO TO 200 

1000 LET e*ff<i)-aCi)' LET f=f(iH(i) 
1005 LET zae»zä*+i' IF zae«30 THEN GO TD 680 
1010 PLÖT INK 0.if<i>,e<i>= DRflW INK @;-f,-e 

1012 PL'OT OVER i;f(i),#Ci): DRflW OVER l;-f,-* 

1013 IF wel»i THEN LET wei»0- RETURN 

1015 IF a< iX«16+f,ie THEN LET z»l.' LET bo=b< i ) 

1020 LET ä<1)*174' LET b< i )«INT < RND*220 >+35 

1030 LET x»INT <RND#2>+1« LET y»INT <RND*2H1 

1040 LET e< i )«a( i > ; LET f C i )»b< i > 

1050 IF y«i THEN LET c< i )«»x 

1060 IF y-2 THEN LET c< i >=x 

1070 LET cKf>INT <RND#I0>+8+we 

1080 IF 2=1 THEN GO TO 1106 

1090 RETURN 

1100 LET 2=0 

1110 IF bo>»i6+ws RND bo<"40 RND sC 1 >«0 THEN LET PO"2: LET sU >«1 ■ GO T 

1300 

1120 IF bo>«56 RND bö<*80 RND s<2>«0 THEN LET s<2)«l* LET f>ö"7> GO TO 1 

300 

1130 IF bö>=96 RND bö<*120 RND ft<3>s0 THEN LET s<3)»l= LET Po«12s GO TO 

1300 
1140 IF bo">*13S RND bö<»»160 RND s<4>*0 THEN LET s<4>i« LET Po«17= GO T 
Ö 1300 

1130 IF bo>-176 RND bo<»200 RND s<5>~8 THEN LET sX5>*l : LET Po«22' GO T 
1300 

1160 IF bo>*216 RND bb<«240 RND a-Cß)"0 THEN LET *<6)»i' LET Po«27« GO T 
1300 

1165 LET scor-e^seore-3 ^ LET stAZ»staz+l = IF äUz>"60 THEN GO TO 2090 
1170 RETURN 

1300 PRINT RT 20^0+1; INK Z> BRICHT 1.; PRPER 6.; " " = BEEP .2,-20 
131® FÜR o»l TQ 7; PRINT RT £:0 , p 
o; INK öj "4*4»," : BEEP .005,-10: N 
CXT o 

1320 FOR Q = l T Q 7: PRINT RT SO , P 

o : INK o ; " fjfc " .; RT 19 . p o ; INK 7-0 

132SPP.INT RT 19,Pö; INK ©;" 
1330 FOR 0»? TO 1 STEP 1: PRINT 

1-333 PRINT RT ai,POI INK, 3 ' "luji I ,- 

1340 PRIKT RT 20, Po; INK 0j " 

1350 LET fc«0i FOR «1 TO 6= LET k-k+*<o>* HEXT o = . IF k*6 THEN GO TO ?m 

1360 RETURN 

2000 CLS . BEEP .1,10 

NEXT i° R lÄ0 T ° ?! B0RDER l! BEEP - 05j7 " i! PHPER 7 ~ i: CLS ! BEEP .05,1' 

?020 BORDER 0; PRPER 0= CLS 

2025 IF stäz>"60 THEN PRINT RT 9,0; "Das Land Ut. PadinakM™ 

V E R S E ü C H T" " ' 

2030 PRINT RT 11,0;»» flUe deine Staedte sind ZERRTGFHPT" 

2Ö40 PRINT ""Da hast »; FLRSH 1; score.; FLASH 8- " Punkt* Vrpirht 1 ' 

2050 PRINT ""Noch mal? <J^n>" " " " 
2960 IF INKEY*-"" THEN- GO TO 2068 
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2878 IF INKEY*~"J" THEN CLS : GO TO 9588 

8999 STGP 

9008 FOR i~l TO 12= REHD a*' FÖR 1=8 TO 7= READ a : POKE USR a$+t..a= NEXT 

1' HEXT i 
•=•188 DRTR "z", 8,8, 8, BIN 08188888, BIN 81118880, BIN 81118811,127,255 
91.10 DRTR M b",BIN 08108000, BIN 81 118188, BIN 81 11 1188, BIN 811I1188,BIN 81 
111108,BIH 11111188, 254,255 

912R DRTR "c", 8, 8,0,8, BIN 88188818, BIN 80180010, BIN 81118810,255 
9138 DRTR "d", 0,0, BIN 88188810, BIN 81181110, 127, 255, BIN 88811111, BIN 888 

00111 

9148 DRTR "e",BIN 80881888, BIN 8881 1188, BIN 881 11880, BIN 881 11 188, BIN 18 

811181,255,255,255 

9J5fl DRTR "f'.O.BIN 81881180, BIN 81111880, BIN 81118008, BIN 11180880, BIN 

11 101 110, BIN 11111188,BIN 11118008 

9160 DRTR "9", BIN 088081 11, BIN 808111 11, BIN 801111 11, BIN 881 101 11, BIN 01 

1801 11, BIN 80800101,1, BIN 08100111 

917A DRTR "h' 1 -BIN 11110888, BIN 11888888, BIN 11108888, BIN 11808880, 128, BI 

N 11018008,254,252 

9180 DRTR "i",BIN 88188111, BIN 80111111, 127, 127, BIN 81811111, BIN 8881111 

fl.BIN 801 11 188, BIN 88881888 

9198 DRTR ".«",255, 255, 255, 255, BIN 18111111, BIN 88811100, BIN 08801000,0 

9280 DRTR "k",9IN 111 11188, 254, 252, BIN 11110188, BIN 81 188800.. 8,0,0 

9218 DRTR "t M ,BIN 10810801, BIN 81088181, 1, BIN 08811810, BIN 01011808, BIN 

18008018, BIN 00881881, BIN 01180080 

9388 PRINT " MISSILE COMMENT" 

9318 PRINT "Du. hast sechs Staedte zu Vertei~di9en" 

9328 PRINT "Die aus dem Weltraum mit Laser strahlen Rn9e9riffen werden" 

9338 PRINT "Mit deinem Feuer l ei tcbmPuter musst du verhindern das" 

9340 PRINT "Die Strahlen Deine Staedte beruehren" 

9358 PRINT "Dazu kannst du dein Zielkreutz ueber den Bildschirm" 

9368 PRINT "Bn?we9en,. Bringe es in die Na ehe- eines oder mehrerer Strahlen 

9378 FR 1 NT " u nd dr uek e d i e F eue r t as t e ' n ' " 

9388 PRINT "An stelle des Zielkreutzes wird dann eine Explosion entstehe 

n" 

9398 PRINT "Die den Strahl zerstoehrt" 

9408 PRINT "Nach 30 Strahlen erfo'L9t Jeweilseine Zwischenwertung wobei" 

9418 PRINT "Es fuer Jede uebri99ebli ebene Stadt 25 Punkte 9ibt" 

9428 PRINT "WEITER MIT IRGENTEINER TASTE" 

9438 IF INKEY*-"" THEN GO TO 9438 

9448 CLS ■ PRINT "Beruert ein Strahl den Boden so Gibt es Jedesmal 3 Pur» 

kte abzu.9" 

9458 PRINT "Jeder Schuss kostet dich einen Punkt Jeder zer stoehrte Stra 

hl" : PRINT "Bringt dir 18 Punkte ein" 

9452 PRINT "Das SPiel ist beendet wenn alle Staedte Zerstoehrt sind oder 

mehr als 68 Strahlen den Boden beruehrt haben" 

9455 PRINT "Nach Jeder ab9e wehrten Rn9riffs~welle werden die Strahlen 

schneller" 

94(50 PRINT " 8 teu ertöten: " 

9478 PRINT H A»Hoch Z~Runter" 

9488 PRINT "B<inks M-Rechts" 

9498 PRINT "N-Feuer" 

9495 PRINT "Schwierigkeitsgrad von 8-Leicht-8-Schwer" 

9588 INPUT ""Gib einen Schwierigkeitsgrad ein ".;sch 

9518 CLS •■ GO TO 18 
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Zu Missile Comment 
Achtung: 

Um die Graphik-Zeichen zu erreichen, geben Sie bitte 

folgendes ein : 

30 »Caps shift«, »Graphik«, abc 
400 »Caps shift«, »Graphik«, L 
420 »Caps shift«, »Graphik«, DEF, G8H, IJK 

1300 »Caps shift«, »Graphik«, L 

1310 »Caps shift«, »Graphik«, DEF 

1320 »Caps shift«, »Graphik«, G8H, DEF 

1330 »Caps shift«, »Graphik«, DEF 

1335 »Caps shift«, »Graphik«, 1,3,2 

In Zeile 1335 muß während der Eingabe von 1,3, '2 die 

Caps-shift-Taste gedrückt bleiben! 

1111111 
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Achtung: 

Wie wir feststellen mußten, wurde das Programm 
»Inventur« nicht vollständig ausgedruckt. 

Wir bitten alte Leser, die noch Interesse haben, 
uns das Computronic-Listing einzusenden. 

Sie erhalten dann ein Original von uns! 



**J> *1> *J* «X<* *J^ *»l> *X* *■!* *A* *X* *i* +£* *X* *Jf* •*!* *-l^ *1^ *-l^ *£* *X* *■!■* 
f|> «*J> +J% #J^ #^ «*j^ *^> **£• *T* *>T« *TV >T* «"TV >^ >T> «> *T^ ^T^ *T^ *}W ,^V 




magna hohe Computer 

CASSETTEN - UQM EINEM 
DER FÜHRENDEN 
CABSETTENHEBSTELLER IN 

DEUTSCHLAND. 

DURCH HÖCHSTE GENAUIGKEIT 

DER EINZELNEN BA UTEILE 

ENTSTEHEN HQCHPRflZISE 



CASSETTENGEHfiUSE, DIE 
EINEN EINWANDFREIEN 
LEUCHTEN LA UF IN IHREM 
RECORDER GARANTIEREN, 

DJE SPIEGELGLATTE 

BANDQBERFLÄCHE BESTEHT 
AUS SUPERFEINEN MAGNET- 
PARTIKELN. 




magna home Computer 

CASSETTEN BESITZEN EIN 
MAGNETISCHES LEADERBAND. 
DESHALB UNIVERSELL 
ERSETZBAR AUF ALLEN 
HANDELSÜBLICHEN 
CA5SETTEN-REC0RÜERN 



magna box zum ARCHI- 
VIEREN IHRER WERTVOLLEN 
CQMPUTER-CASSETTEN. 
UNBEGRENZT 

AN- UND AUSBAUFÄHIG. 

FRAGEN SIE IHREN 
FACHHÄNELER. 



► 




torträger Vertriebs 

Bunzlauer Straße • Postfach 40 03 40 • 5000 Köln 40 
Telefon (0 22 34} 7 40 54 • Telex 8 89 975 



DJE HOHE SPEICHERDICHTE 
ERLAUBT EINE HERVOR- 
RAGENDE AUFZEICHNUNG UND 
SPEICHERUNG IHRER 
WERTVOLLEN PROGRAMME 
UND DATEN. 

LIEFERBAR MIT IQ, IQ 
UND 30 MINUTEN 

SPEICHERHAPAZITÄT. 
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Oil Partie 



Ein Programm in Basic geschrieben, für alle Ataris! 
Eine Ölleitung wurde verlegt um die Energieversorgung zu 
sichern. Aber, »ach du Schreck«, auch die neue Leitung ist 
defekt. Das kostbare Ol tröpfelt auf den Boden und ver- 
sickert in der Erde. 

Sie können das jedoch verhindern. Mit einem Eimer, den 
Sie über Joystick steuern, können Sie das Ol auffangen 
und ins Lager zurückbringen. 

10 REM ************************ 



Achten Sie jedoch darauf, daß» Ihr Eimer nicht zu voll 
wird. Sie könnten ihn sonst nicht mehr tragen und der 
Inhalt ist ebenfalls verloren. 

Wenn Sie schnell reagieren, das Ol auffangen und den 
Eimer regelmäßig leeren so daß nichts verschüttet wird, 
dann werden Sie in die Punktewertung aufgenommen. 

Versuchen Sie es einmal! 

*«j* fc-k* «j* »f* *A* *»£* +X+ *<£** *A^ *"I* ^1* *!** •*&* *»&* *1* *A* *1* *4* *4f ^i* *** 
*f% ?p ?f+ rf+ *f> *yW *f+ *f> #]S #f* rf *^> •f* *|h >f* Vf> *p» #=J* #J> S$% *|* 



20 REM * 
30 REM * 
40 REM * 
m REM * 
60 REM * 
70 REM * 



<.c"> 1984 ba 
Jens Berte e 



3070 Nienburg 
30 REM * Tel.: 05021 -■'12077 
90 REM * 
100 REM ************************ 
110 REM 

1 20 DRTR 60,1 26 , 255 , 255 , 255 , 255 , 1 26 , 60 
130 DflTH 255,16,16,16,16,16,16,255 
140 DRTfl 255,0,0,0,0,8,0,255 
150 DRTfl 126,126,126,126,126,126,126,126 
160 DRTfl 255,255,255,255,0,0,0,0 
170 DHTR 255,126,60,0,8,0,0,0 
j 80 DRTfl 255 , 255 , 255 , 1 26 , 60 , B , , 
190 DRTfl 126,255,195,195,67,195,3,3. 
200 DRTfl 3, 3, 3, 3,. 3, 3, 3, 3 
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Q 



210 OPEN #1,4,0, "K"'G0SL 

220 IF PEEK< 14344 >«60 THEN 290 

230 DTM fl*< 28 >■ RESTORE 115 

240 FOR fl»0 TO 27= READ B'fl«LENCfl*>+l )*CHR*(B) = NEXT fl 

250 DRTR 1 84 , 1 69 , 224 , 1 33 , 204 , 1 69 , 56 , 1 33 , 206 , 1 62 , 4 , 1 60 , 

260 DRTR 1 77 , 203 , 1 45 , 285 , 200 , 208 , 249 , 230 , 204 , 230 , 206 , 202 , 208 , 240 , 96 

270 X«'USR< flDRC fl* > > = RESTORE 

280 FOR R«l TO 9- FOR B«0 TO 7 »READ C'POKE 14:T36+B+H*8,C = NEXT B'NEXT fl 

290 GRAPHICS 17'SETCOLOR 4, 15, 14'SETCOLÜR 3,0,0 'SETCOLOR 2, 15, 12 ! SETC0L0R 1,3,0 

POKE 756,56 

30Ü TT=PEEra#6>TiSTpDKE 5427^^=^^*236 '"POKE 535,62 

310 POKE 53277, 3 'POKE 623,0= POKE 704,0= POKE 53256,0 



320 DOLOR 164 
330 COLOR 131 
340 COLOR 130 



'FOR R=0 TO 19 = PL0T fl,2 = DRRWT0 fl.,21=NEXT R 

=PLOT 0, l'DRRWTÜ 19,1 

'FOR fl=*2 TO 17 STEP 5 = PL0T fl,l=NEXT R 
350 COLOR 37'PLOT 0,22'DRRNTO 19, 22= COLOR 40'PLOT 19, 20= COLOR 41'PLÜT 19,21 
360 P2=0 = I =0 = 3=0 = T-0 ' Z=0 = W=9 = K==4 = GM-30 = H= 1 = Y=207 ■■ X= 1 28 
370 FOR R=1024 TO 1272 = POKE PM+fl,0'NEXT R 
380 GOSÜB 580 : GOSUB 550 

390 IF PEEKU 53279 >=*6 THEN FOR R«l TO 50=NEXT fl'POKE 764, 255 = RUN ■ 
4R0 KT="STICK<0> = IF 8T<8 THEN X*=X+4 = SOUND 0,RBS<X-255>.. 10,6 
410 IF 8T<12 RMD ST>8 THEN X=X~4= SOUND 0,X+57,10,6 
420 IF X<48 THEN X™48 
430 IF K>200 THEN X=200=GOSUB 680 
440 POKE 53246,X= SOUND 0,0,0,8 

450 IF 8=0 THEN W«INT<GE>''TsINT<RND<0>*19>'S*l = COLOR 134 = PLüT T, 2 = GOTO 390 
460 W=W-1'IF WO-1 THEN 390 

470 IF S=l THEN S=2 = COLOR 135=PL0T T,2= W«INT<GU)=G0T0 390 
4RPI FOR fl-255 TO 240 STEP »1 'SOUND 1 ■ A, 10,8=NEXT fl' SOUND 1,0,0,0 
49Pi F<~iR R-240 TO 80 STEP "20 = SOUND 1,R, l?i,8 = NEXT Fh SOUND 0,0,0,0 
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500 POKE 53278 , @ ■ FÜR R~2 TO ZI-'COLOR 1 , 29 = PLOT T,R=FOR B«l TD 18"*NEXT B'CÖLOR 16 

4'PLOT T,R=NEXT fl = S=0 

510 IF PEEK< 53252)= 12 THEH 1*1+1 

520 IF 1=7 THEN 1*0 'GOTO 630 

53© IF PEEK< 53252)= 12 THEN POKE 53278.. B» JEOSUB 740 = GOTO 390 

54i7i priKF 53278,0* GOTO 630 

550 POSITION 0,0= PRINT #6; "SCORE « M ; P2; « POSITION 2, 23 : PRINT #6 .= I = POSITION 17,23 

»PRINT #6.:K 

560 POSITION 17. 23 = PRINT #6.iK 

570 RETURN 

580 FOR R=Pr-1+l024+Y TO PH+1824+Y-M STEP -l=POKE R , 255 ■ HEXT R « RETURN 

$m FOR fl«PM+1024+Y-7 TO PM+ 1023+Y-M * PÖKg R,0 : NEXT R» RETURN 

6fi0 PZ=PZ+I 

610 IF IO0 THEN GM«GM-3«fcM4+9»IF GW<18 THEN GW» 18 

620 I =@ : M==l ■ GOSUB 550 • GOSUB 590 = RETURN 

630 FOR fl=0 TO 20 STEP 2 = SOUND 1 , R , ,10 = SOUND 1 , R+ 1 ,0,10 = NEXT R = SOUND 1 , , 0,0 = 3 

OUND 2,0,0,0 

640 K*K-i« 1=0 = GOSUB 550= IF K=0 THEN 669 

650 H«i »GOSUB 590= GOTO 390 

660 1=0: GOSUB 550 

6?fj IF PZ>HI THEN HI«P2 

680 POSITION 3,11=PRINT #6.: "HIGHSCORE = ";HI 

690 POSITION 0, 23 = PRINT #6 j " nochmal " .; CHR*< 15 ) .; " " ; CHR*< 251 >j " " i CHR*< 143 >J "n" 

= CHR$<253).; n " ; 

700 POKE 764,255 

710 GET #1,KEV=IF KEY=74 THEN 290 

720 IF KEY078 THEN 710 

730 POKE 53248, 0=END 

740 GOSUB 550 = M=M+ 1 = GOSUB 580 : RETURN 

750 GRRPHICS 17 » SETCOLOR 2, 14, 18 = ETCOLOR 1 , 13, 4 = SETCOLOR 3, 15, 5 = SETCOLOR 0, 10, 10 

•PORE 53248,0 

760 POSITION 3, 20= PRINT #6 ; "Press any key" : POSITION 7,0= PRINT #6; "JENS" 

770 GOSUB 840 = POSITION 7,1= PRINT #6.= "BERKE" 

730 GOSUB 840 ■ POS I T I ON @,4 = PR I NT #6 .; " P resswts •' " ; POS I T I ON 5,9 = GOSUB 840 

790 RESTORE 7040 : FOR R=l TO 9 = RERD CH = PRINT #6.; CHR*< CH) :■ = GOSUB 840 = NEKT R 

800 DRTR 111,1 05 , 1 08 ,13,112, 97 ,110,1 05 , 99 

810 i>C+l--IF C=256 THEN C»0 

820 POKE 709,C=IF PEEKX 53279 )=7 RND PEEKC 764 )==255 THEN 810 

830 GOTO 860 

840 FOR B«l TO 70-IF PEEK< 764 )=255 RND PEEK( 53279 )=7 THEN NEXT B = RETURN 

850 POP =POP 

Bm PRINT #6 ;CHR*< 125) = POSITION 1,10 = PRINT #6; "SPIELREGELN? CJ/fO" 

870 GET #1,KEY=IF KEY=78 THEN 220 

880 IF KEY074 THEN 878 

890 GRRPHICS 0= SETCOLOR 2, 1 , 10 = SETCOLOR 1 ,0, O = SETCOLOR 4, 1,4= POKE 756, 204= POKE 8 

2,0= POKE 752,1 

900 PRINT CHR$< 125); "Ru.f95.be ist es, Tropfen, die aus einer defekten OelIeitun9 

f a 1 1 en , aufzufangen , " 
910 PRINT "Dazu. i,iird ein Bottich benutzt, der auf einer Ebene hin und her fahre 
n kann* " 

920 PRINT "Wenn mehr als 6 tropfen aufgefangen wor—den sind, 9eht. ein leben verl 
oren, wovon" . ; 

930 PRtNT "man am RnfanS 4 hat« Die "9esame Iten Tropfen koernien rechts, -an eine 
r oelsam"-" 

940 PRINT "meiste He eingetauscht werden," * PRINT "Die bei,i*9un9 erfolgt Per Jon st 
ick." 

950 PRINT CHR$<29::'.;"Rnzei9e ="=PRINT CHRWI 29 ).s "links unten die aufgefangenen Tro 
Pfen" 

960 PRINT CHRSK 29); "rechts unten die finxah'l der Leben" 
970 POSITION 6, 23= PRINT "Druecke irgendeine Taste": 
980 POKE 764,255 
990 GET #1, KEY 'GOTO 220 
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1 rem tmx*t*tx*ttmx%**%t%**%% 

20 REM * Cc) 1984 by % 

30 REM * -.Jens Hue-ttmarm * 

40 REM * Raschstrasse 1 * 

c ^0 REM # * 

«50 REM % Jens Berke * 

70 REM * Fir.ke--r.hof 7 % 

80 REM % 3070 Nienburg * 

*0 REM tttttttmttittttttttttttt 

1.00 REM 

1 10 PÖKE 77-0 

120 IF ZOQ1 THEN 500 

130 GOSUB 1100 

140 GOSUB 1630 = GOSUB 17413 



Für Atari 600 XL und 800 XL. 

Für Benutzer der übrigen Atarigeräte 
sei gesagt, daß mit POKE 756,204 auf 
einen internationalen Zeichensatz um- 
geschaltet wird. 

Die Tank-Battle Version ist für zwei 
Spieler gedacht und wird über Joysticks 
gesteuert. Jedem der Spieler stehen 
Minensucher und eine Panzerdivision 
zur Verfügung. Versuchen Sie nun, 
den heranrückenden Feind aufzuhal- 
ten und unschädlich zu machen. Aber 
Vorsicht bei Ihren eigenen taktischen 
Zügen! Tank-Battles und die Zeit sind 
nur begrenzt verfugbar. Das Spiel ist 
sehr spannend und schöpft die Gra- 
phikmöglichkeit des Atari gut aus. 
Eine genaue Anleitung ist im Pro- 
gramm selbst enthalten. 

Hier noch ein Tip: 

Hat man keinen Gegenspieler, wäre es eine ganz reizvolle 
Aufgabe, unser Programm so umzuschreiben, daß man 
den Computer zum Gegener hat. 



*\X?* vl^ *t* *if ^g* *X^* *>!-* *&* m* *■? ^*^ ***" ^x# %x^ *i* *»y *£^ *2^ *1^ *2** *i* 
^> ^* ^^ ^^ *j% *j% ^^ *^ ^h >j% *J% >y%- ^» ^* *J* ^* ^% ^* ^% ^^ ^^ 



159 GRRPHICS 17: POKE 



56 ■ 56 



1. 60 SETCOLOR 1,1,11= SETCOLOR , 1 1 , 1 2 = 8ETC0L0R 2,8,8 = SETCOLOR 3 , 5 , 7 « T= 1 9 : 
170 ET*3*ET1«3'P«5 

1 80 DOLOR 34 •• PLOT , 3 : DRRWTO , 1 6 = COLOR 33 ' PLOT 1,16 = DRRWTO 3 ,16 = PLOT 1,3 = DRRWTO 
3,3 
1 90 COLOR 34 : PLOT 3 , 4 = DRRWTO 3 , 1 5 : COLOR 32 = PLOT 3 , 1 : PLOT 3 , 9 

200 COLOR 34 ' PLOT 1 9 , 3 : DRRWTO 19,16 = COLOR 33 = PLOT 18,16 = DRRWTO 16,16 = PLOT 1 8 , 3 ! D 
RRWTO 16,3 

210 COLOR 34= PLOT 16, 4= DRRWTO 16, 15= COLOR 82= PLOT 16, 10= PLOT 16,9 
220 F0R F«0 T0 3€hX«INT< i@*RND<@>+5> ! Y-INK 19*RND<0 Hl >• COLOR 131 •• PLOT X,Y=NEXT 
F 

230 COI... OR 5 = PLOT 1 7 , 5 ■ DRRWTO 1 7 , 1 4 = COLOR 30 = PLOT 17,9 = DRRWTO 17,10 
240 COLOR 6+ 1 60 = PLOT 2,5 = DRRWTO 2 , 1 4 = COLOR 29+ 1 60 : PLOT 2 , 9 = DRRWTO 2 , 1 @ 
250 COLOR 1 1 = PLOT 18,9 = COLOR 1 1 + 1 60 ■ PLOT 1 , 1 
260 PG~8 : XT^-X = YT=-1 

270 KS=~1 =Y8=0 : 8=0 = GOSUB 340= IF PGO0 THEN 270 
280 PG«8-»XT=-1 =YT==-1 

290 XS*1 =Y$=0= 8=1 = GOSUB 340 * IF PGO0 THEN 290 
300 GOTO 260 
310 POSITION 6,6 = PP'I NT #6.;R$.;" HAT" « POSITION 6,9-PRINT #6.; "VERLOREN" = POSITION 4, 
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12=PRINT #6: "PRESS STRRT" 

320 TF PEEK<: 53279 X >6 THEN 320 

330 GOTO 150 

340 POSITION 0,22=RINT #6; "TANKS" ;T; " tanks = " i Tl ; " " = POSITION 0,20*PR1NT #6; "MOV 

FS : " ; PG 

350 G 1 =30 • 0-5 : C=7 ' C 1 =8 : 1 F S» 1 THEN Q~ 1 66 : "> 1 67 : C 1 = 1 69 = Q 1 = 1 89 

360 PÖKE 77, 0<Y«0=X«0 : LOCHTE X , Y , H = CL=80 

370 fl«STICKCS)'IF R~15 THEN "COLOR C'PLOT X,Y< GOSUB 1550 = GOTO 370 

380 COLOR H'PLOT X,Y 

390 SOUND , 30 , 8 , 1 5 

400 G03UB 1610 

41.0 IF R=ll THEN Xl=--1 

420 IF R=7 THEN XI =1 

430 IF R=14 THEN Yi— -1 

440 IF R=13 THEN Yl«l 

450 TF X+XK0 OR X+Xl>19 THEH 508 

460 IF Y+YK0 OR Y+Y1>19 THEN 500 

470 LOCHTE X+X1,Y+Y1,Z 

480 IF ZOQ OR ZOQ.1 THEN Y*Y+Y1 • X=X+X1 

490 H=Z 

500 COLOR C'PLQT X-Y=FOR F~0 TO 30= NEXT F = SOUND 0,0,0,0= Y1=0=X1=0= IF ZOQ RND Z< 

>m THEN 870 

510 P==5 = P0KE 764,255 

520 IF T=l RND Q»f66 OR T*l RND 0*189 THEN P=9 

530 IF Ti*l RND Q=5 OR Tl~l RND Q=30 THEN P-9 

540 IF X==XT RND Y«YT THEN K»Q : GOSUB 980-PLOT X , Y = X=0 = Y=0 ■ LOCHTE X, Y,R = RETURN 

550 IF Z«öl THEN GMJ1 

560 C=Q = FOR F= 1 00 TO 1 STEP -2 = SOUND 8 , F , 1 2 .. 1 5 : NEXT F ■ SOUND 9 , , , 

570 COLOR C'PLQT X,Y 

580 P=P-LIF Q=189 OR Q=30 THEN P=P+0.5 

590 POS I T I ON , 29 : PR I NT #6 .; " MOVES : " $ PG 

6m IF P=0 OR PG=0 THEN XT*X * YT*Y » GOTO 830 

610 IF PEEK< 764 >«3 RND QOQ1 THEN POKE 764, 255 = GOSUB 1390 

620 IF P=4 THEN C*8 

630 GOSUB i550 = R=STICK'rS>= IF ROI 5 THEN 689 

640 IF i>Ül RND STRIG<S>-0 THEN GOSUB 1600 = GOTO 660 

£50 IF COQ1 RND STRIG':!S>=0 THEN GOSUB 840 *.PG*PG-i »GOTO 580 

fm IF PEEKX 764 >=28 RND P<4 THEN KT&X '■ YT«Y '■ OQ » GOTO 830 

670 GOTO 600 

680 COLOR 32 : PL0T X,Y 

690 SOUND 0.70,2» 15= FOR F=0 TO 50 : NEXT F 

700 IF R*li THEN X1--1 

710 IF R=7 THEN XI «1 

720 POKE 764,255 

730 IF R«14 THEN Yl*~l 

740 IF fl«13 THEN Yl*l 

750 IF X+XK0 OR X+X1M9 THEN 800 

?m IF Y+YK0 OR Y+Vl>19 THEN 800 

770 LOCRTE X+X1,Y+Y1,Z 

780 IF Z082 RND ZO-159 THEN 800 

790 Y-Y+Yl =X~X+X1 

800 SOUND 9 , O , , Ö = Y 1 «0 : X 1 "O = COLOR C = PLOT X , Y 

810 f F Z~ 1 59 RND C< >Q 1 THEN !<~0 = GOSUB 980 = PLOT X , Y = X~0 = Y~0 = LOCRTE X , Y , H = RETURN 

820 PG-PG-'l : G0TÜ 580 

880 POKE 764 , 255 = COLOR Q : PLOT X , Y = SOUND @ , , 8 , = RETURN 

840 FÖR 80-15 TO STEP -1= SOUND 0, 5, O, SO -FOR 801*1 TO 3 = NEXT SOI = NEXT SO 

858 TRRP 1490 

860 M«S 

878 IF S==0 RND T<5 THEN M»M+1 ' 

8«0 IF 8=1 RND TK5 THEN M«M+1 

890 FOR E~l TO M 
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900 LOCRTE X+X$#E,Y+YS*£,k"-IF K032 THEN G03UB 950»PLOT X+X5*E/Y+YS#E J FOR F»fl Tn 

1. 5@ i NEXT F ■ RETURN 
910 COLOR 168-PLOT X+XS*E, Y+YS*E 
920 FOR F~l TD 10: NEXT F 
^30 COLOR 32'PLÖT X+XS#EjY+YS*E*NEXT F 
940 RETURN 

930 IF K*131 THEN COLOR i 38 : RETURN 
960 IF KOI 89 RND KO30 RND KOI 39 RND KOS RND KOI 66 RND KOll FÖ1D KOI 71 THEN 

COLOR 32» RETURN 
970 TF K«159 THEN COLOR fO. RETURN 
9«0 FOR F=0 TO 250 STEP 5 «POSITION 5.*21»PRINT #6 ."HI GH VOLTRGE" »POKE 712..F = G0SUB 

1090 
990 NEXT F : COLOR 1 38 ; SETCOLOR 4 . @ . : SflÜND R .0.0.0= SOI WD 1 • • B ■ R : PHS T T I ON 5 . 21 s RR 

NT #6.;" 

R00 IF K*l 66 OR K=189 THEN T=T-1 

01.9 IF K=»5 OR K~30 THEN Ti=Tl~i 

020 IF T=0 THEN R$»=Vot ":GOTO 310 

030 IF T1=0 THEN R$=»"BLRU" : GOTO 310 

040 IF T<5 THEN ET 1-4 

050 IF Tl<3 THEN ET=4 

060 IF K»ll THEN R**"rot "»GOTO 310 

070 IF K=171 THEN R$«"BLRU" »GOTO 310 

080 RETURN 

090 SO' JND , F , 8 , 1 5 : SOUND 1 , F , 1 2 * 1 : RETURN 

100 DIN R*K28>'IF PEEKC 14345)« 117 THEN RETURN 

110 POKE 559 ..0 : RESTORE i960 

1 20 FOR R=» 1 TO 28 ; RERD B : SOUND , B , 1 , 6 » R$< R , R >*CHR*< B ) : NEXT R ■ SOUND .. , , 

130 DRTR 104, 1.69, 234, 133,204, 169,56, 133, 206, 162, 4, 160, 

140 DRTR 177, 203, 145, 205, 20O, 208, 249, 230, 204, 230, 206, 202, 208, 248, 96 

150 X»USR< RDR( R$ ) ) 

160 RERD R»IF FN-1 THEN POKE 559, 34 ■ RETURN 

1 70 FOR ,1=0 TO 7 •■ RERD B : POKE 1 4336+flfc8+J , B • SOUND 8, 6, 10,4 - HEXT J : SOUND 0,0,0,0 

1.80 GOTO 1160 

1 90 DRTR 1 , ,117 , 287 , 1 87 , 1 8 2 , 22 1 , 1 07 , 9 * 

200 DRTR 2 • 1 1 8 , 26 , 1 08 , 54 , 92 .= 1 22 , 1 02 , 50 

2 1. DRTR 3 , 220 , 232 , 1 20, 244 , 1 74 , 252 , 1 1 , 1 87 

220 DRTR 4 , 248 , 1 32 , 52 , 63 , 52 , 1 32 .« 248 , O 

330 DRTR 5,62,33,13,253,13,83,62,0 

240 DRTR 6 , 1 24 , 1 32 ,176,191, 1 76 ,132,1 24 , 

250 DRTR 7 , 255 , 1 53 , 1 65 , 1 95 , 1 95 , 1 65 , 1 53 , 255 

260 DRTR 3 , , O , 24 , , , , , 

270 DRTR 9.0,0,24,0,0,0,0,0 

280 DRTR 1 , O , , , 82 , 36 , 1 76 , 1 86 , 250 

290 DRTR 11,24,86,66,153,153,66,36,24 

300 DRTR 12.124,132 , 1 76 , 1 76 , 1 76 , 1 48 , 84 , 1 6 

310 DRTR 13,16,84,148,176.176,176,132,124 

820 DRTR 27,62.-33.. 13,13,1.3,41,48,8 . 

330 DRTR 15,8,43,41,13,13,13,33.62 

340 DRTR 28,31,33,28,252,28,33,31,0 

350 DRTR 29,0,230,255,185,191,255,230,0 

360 DRTR 30,0,103,255,253,157,255,103,0 

370 DRTR 8 1 , , 1 6 , O , 1 6 , 1 86 , 1 6 , O ,16 

:~:80 DRTR -1 

330 ip c;-i THEN YS=0:tfS=l : GOTO 1480 

di/jQ vs=0 : XS=- 1 

410 R^3TICK<0> 

420 IF R*H THEN X8~~ 1 =YS^0»C=5 »DOLOR C-PLOT X,Y 

430 IF R=»7 THEN XS*1 : YS*0'O4» COLOR C'PLQT X,V 

440 1 F R~ 1 4 THEN XS*0 : Y8*~ 1 : C» 1 5 ■ COLOR C : PLOT X , Y 

45« IF R==18 THEN XS*0 ! YS»1 : 027* COLOR C-PLOT X,Y 

Am IF PEEK/764>33 THEN POKE 764, 255 = RETURN 
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1470 GOTO 1410 
1480 fl"STICKCl> 

1490 IF R=7 THEN XS=1 = VS*0* Ol 66 'COLOR C=PLOT X,Y 
1500 IF R=ll THEN X8=~1=YS=0=C=188=GOLOR C'PLOT X,Y 
1510 I F R* 1 4 THEN X8«0 = V8— l ' O 173 ' COLOR C = PLOT X , Y 
J52H IF fl=13 THEN X8W»Y8"1 «C*172 'COLOR C'PLOT X,Y 
1530 IF PEEK<764)*=33 THEN POKE 764, 255= RETURN 
1540 GOTO 1480 
1550 CL=CL-0. 1 

1560 POSITION 10, 20 'PRINT #6j "TIME' " ;CL; " " : IF CL>0 THEN RETURN 
1570 IF 3«0 THEN RS* "rot " 
1580 IF 8=1 THEN R*="BRLU" 
1590 GOTO 310 

1600 COLOR lS9<OJCffTE X+l-8*2.. Y,ö= IF D~32 THEN PLOT X+ 1-8*2, Y« RETURN 
1610 CL=CL~0.5=GÖTO 1560 
1620 RETURN 

1630 GRRPHICS 17=PQ8ITI0N 4,19=PRINT #6 > "Press start" = POSITION 5,0 
1640 PRINT #6; "JENS BERKE" ■ GOSUB 1720 '• POSITION 8,2 

1650 PRINT #6i*'RHD" ! GOSUB 1720'PÖSITION 3..4 = PRINT #6; "JENS HUETTMRNN" : GOSUB 1720 
1660 POSITION 0,7 = PRINT #6.; "Present "; CHR$< 26 >= GOSUB 1720 = POSITION 4,10 
1670 RESTORE 3025 »FÜR fl'=l TO I1=RERP CH» PRINT #6jCHRJKCH?J = GOSUB 1720'NEXT R 
1680 DRTR 212, 193,206,203, 173, 194, 193,212, 212,204, 197 
1690 CO=CO+MF CCM253 THEN CO«0 
1700 POKE 710,00= IF PEEK< 53279 X>6 THEN 1690 
1710 3ETCQLÖR- 0, 1 1 .. 1 2 = SETGOLOR 2,£,& : RETURN 
1720 FOR B"l TO 50=IF PEEKX 53279 X >6 THEN NEXT B = RETURN 
1730 POP =POP = RETURN 

1740 GRRPHICS 18 = POSITION 1,5 = PRINT #6.; "SPIELREGELN? < J/N>" =3ETC0LDR 0,10,10 
1750 P=PEEKX764>=IF P~35 THEN GRRPHICS 0= RETURN 
1760 IF POl THEN 1750 

1770 GRRPHICS 0'SETCOLOR 2, 10,0=SETCOLOR 1 , 10, 14= SETCOLOR 4,10,6 
1780 POKE 752,1= POKE 82,0= POKE 756,204 

1790 PRINT" Jeder besitzt- 8 Pariser und 2 Minenle9er.'mit denen er versuchen muss, 
rnoe9 liehst" 

1800 PR I NT "alte Fahrzeuge des Gegners zu. zerstoeren.Mit der riarkierü.n9 entscheid 
et der sPie-".; 

1810 PRINT" Ter, wötoifc er als naechstes ziehen will „Jede Bewe9u.n9 oder Schu.ss zae 
Kit als Zu.9."j 

1820 PRINT" Im Normal t fäll kann Jedes Gefaehrt 4 mal, ein Minenleger, wenn er als 
erstes 9e-*" 

1830 PRINT"nommen wird, 8 mal bewe9t werden. Mit der ESC-Taste kann aber neu. aus 
su.-" 

1840 PRINT"chen„Beim gesamten SPiel laeu.ft eine Uhr mit.; wenn sie auf steht, is 
t das SPel"; 

1850 PRINT "zu Ende u Drueckt man die SPRCE-Taste, so kann der türm des Panzers auf 
r^er- Stelle"; 

1860 PRINT "gedreht werden, was nicht als Zu9 9ilt und wobei die Zeit stehen bte 
ibt.Wird" 

1870 PRINT" die Taste ein zweitesmal 9edrueckt, so kann man in die 9ewaehlte Ri 
chtun9 einen Schu.ss abgeben '. " 
1880 PRINT" Wird das HauPtquatier getroffen, ist das SPiel automatisch zu Ende. 

1890 POSITION 0,23= PRINT "Bitte eine Taste druecken"; =P0KE 764,255 

1900 IF PEEKC7€4>253 THEN 1900 

1910 GRRPHICS 17 'POKE 756/56* PRINT #6; "& » PRNZER" =PRINT #6 = PRINT #6.:"= '■ MINENL 

EGER UND MINENSRMMLER" 

1 920 PP I NT #6 = PR I NT #6 .; " + = HRUPTQURT I ER " = PR I NT #6 = PR I NT #6 i " ? = M I NE " = PR I NT #6 = 

PRINT #6j ,u : ZIELMfiRKIERUNG" 

1930 POSITION 4, 23= PRINT #6; "Press start" 

1<940 IF PEEKX 53279 X>6 THEN 1940 

1950 GRRPHICS 0= RETURN 
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Jedes Programm in Computronic wird einer Endkontrolle in unserem Hause unterzogen und genauestens geprüft. Alle im Heft abgedruckten Programme 
sind nach der richtigen Eingabe der Listings auch funktionsfähig. Viele Leser verlieren jedoch schnell die Geduld am Programmieren, sollte etwas einmal 
nicht klappen. Die häufigste Ursache von Störungen im Programm, sind unterlaufene Fehler bei der Eingabe. Verzweifeln Sie nicht, sollten Sie einmal keine 
Zeit zum Programmieren haben oder sollte etwas nicht gelingen. Alle Programme werden im Verlag gespeichert und können jederzeit mit beiliegender 
Bestellkarte zum Selbstkostenpreis bezogen werden. 
Tragen Sie bitte alle notwendigen Angaben in die Bestellkarte ein, und senden sie an: 

Tronic- Verlag GmbH, Postfach 41, 3444 Wehretal 1 



m , 7 vöi K = 8,50 DM 
VC ' 64 rSlltDM S,Gun-Man 
Mauern, Widerstand' Landeanllug^Bomg^ ^ 



ZX-Spectrum Dragon 32 K - 6, Dl 

Inventur K-12.-DM ßUzzard 



TX99 K= 8,50 DM 

Drei-Kronen-Spiel 

Zahlenputzen 



Anolell K= 14,50 DM 
APP D= 19,50 DM 

Wilder Westen, 
Karambolage, 
Maskengenerator 



V«° £lÄM A«an K= 10.50 DM 

c Dr R PO pn Mastermind, 
Hangman Saurer Regen, ange nkrieg 

Quadr. Gleichung bcman§ 



Karf L m~ H ' 5 ° DM Sharp MZ 700 Kalender 
Alien-Landing Q , _- K = 8,50 DM 

Sharp PC 1500 Lotto 



VC-64 K= 15,50 DM 

<j „ D = 23,50 DM 
opace-Comets 

Fliegenfänger 

Barock-Musik 



Apple II K = 9,50 DM 

vr i w, D=17 ' 50C, M 
Musik-Maker 

Mission-Adler 
Disk-Catalog 



Space-Fhght, Geosoft 

ZX-81 K=10,-DM 
Go-Ball, Grand-Prix 

ZX Spectrum 

u- -i r> K = 6 - 5 0DM 
Missile-Comment ' 

T f f R , K=I2 '50DM 
iank-Battle 

Oil Panic 



Kleinanzeigen 



Angebote: 



VC-64 

Biete echtes Monopoly für 
VC-64. Wie im Original. 
Diskette DM 20,- 

Cassette DM 18 - 

Chiffre 0401 

Biete Auto Rem-Writer 

forZX-81. Hardware. 
Paßt in das. ZX-Gehäuse. 

Keine Betriebssoftware. 
F. Hanold 
Hunsrückstraße 39 
3444 Langenhain 

Verkaufe : 

Monopoly - VC-64, 
Compiler, 
Screen-Kit-ZX-81, 
Screen-Kit — Dragon 32 

Chiffre 



Tausche Spectrum-Software, 

Jan Weigner 
Carl-Schurz-Straße 11 
2800 Bremen 
Sinclair foreverü! 



100 neue Programme 

fürMZ80K,MZ80A, 
MZ 700, VZ 200, 
Laser 210, TT 99. 

Info, 1, — DM in Marken, 
von H. Weisel 
Königsberger Str. 20 
5412 Ransbach 

Verkaufe 

Atari, und jede Menge 
Kassetten, z. B. : 
Phoenix, Dig-Dug und 
Standard Steuerknüppel 

Tel.:07945-561 

ZX Spectrum 

Soft- und Hardware. 

Preiswert 

durch Direktimport. 

Info bei : 
Ursula Kunz 
Junge Halden 3 
7500 Karlsruhe 41 



ZX-81: 

Großes Software angebot. 
Spiele, Infos, Tips, 
Amateurfunk-Software. 

Ausfuhrl. Liste gegen 
Rückporto von: 
Michael Schramm 
Freiligrathstr. 5 
2300 Kiel 1 

Universelles 

Kopierprogramm 

Copy für den ZX Spectrum 

auf Cassette +Catalog - 
Programm + Beschreibung 

nur DM 16 — 



Kontakte: 



Atari 

Suche/Biete Software, 
manuelle Tips + Tricks 
für Atari. 
Eventuell Tausch. 
Roland Reyer 
6438 Ludwigsau 1 



Korrekturen 



Obwohl wir es verhin- 
dern wollten, hat sich der 
Druckteufel doch 
eingeschlichen. 

Folgendes aus Heft 4/ 1 
muß korrigiert werden: 

Apple II 

Seite 33, 

»Wilder Westen«, Zeile 26 
statt: Then 1150 
richtig: Then 46 



COMPUTER-CASSETTEN 

im 10er Pack, BASF-Band-LHD, 
mit Box, Etikett und Einleger 
C 10 nur 15 - DM 

C20 16- DM; C 30 17 -DM 

Brandneu von TDK: 

PC- 10 im 10 er Pack 29,— DM 

CASSETTEN-AUFKLEBER 

auf Lochstreifen 100 St. 5,— DM 

120 St. auf A4-Dr uckbögen 

7 - DM; Versand ab 20 - DM: 

Christomenia-Cassettenstudio 

Postfach 20 

3584 Zwesten, Tel. 5626-2 81 
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Computronic 



Computronk Bestellkarte-Cassettenservice 

Alle im Heft abgedruckten Programme können als zusätzlicher Service, zum Selbstkostenpreis, über den Verlag bezogen 
werden. . , 

gegen Vorkasse I — I 
Die Zustellung erfolgt: per Nachnahme innerhalb von 14 Tagen! 

+ Versandkosten I I 

Achtung: Disketten können vorerst nur für: Apple 

VC-64 
VC-20 bezogen werden! 

Entnehmen Sie bitte aus unserer Preisliste Seite 66 die notwendigen Angaben für Ihre Bestellung: 



Bitte liefern Sie mir: | I Cassette für 

I | Diskette für 



System 



System 



zum Preis von gesamt: 



I I Anzahl 
I I Anzahl 
DM 



Name: 


Straße, Nr. : 




PLZ/Ort: 


Unterschrift, Datum: 






~ • 


* 



Kleinanzeigen in Computronic: nur gegen Vorkasse 

Bitte veröffentlichen Sie ab nächstmöglicher Ausgabe 

unter der Rubrik: I I Angebote I I Kontakte 



1 1 Gesuche | | Verschiedenes 

folgenden Text: 






1 i 
1 1 





Bitte jeweils 35 Buchstaben pro Zeile! Bitte Absender nicht vergessen! 



Preis für Kleinanzeigen: 



Private Anzeige DM 4,50 je Druckzeile 

gewerbl. Anzeige DM 8,00 je Druckzeile 

Chiffregebühr DM 10,00 je Anzeige 



N 



ame: 



Straße, Nr.: 



Vorname: 



PLZ/Ort: 



Unterschrift, Datum: 



privat 



1 | gewerbl. 1 I 



(bitte ankreuzen) 



< 



Möchten Sie als Software-Autor 
für den TRONIC-Verlag tätig werden? 



Wir würden uns freuen, in Ihnen einen Ansprechpartner für eine künftige 
intensive Zusammenarbeit zu finden. Der TRONIC-Verlag vereinbart mit seinen 
künftigen Software- Autoren pro veröffentlichte Seite (einseht Programm- 
beschreibung) ein Honorar von DM 120, — . 

Dieses Entgelt wird fällig, wenn die Redaktion des Verlages sich für eine 
Veröffentlichung entscheidet. Die Auszahlung erfolgt also nicht erst nach 
Veröffentlichung in einer unserer Ausgaben, sondern wesentlich früher. 

Der Verlag wird vom Autor berechtigt, seine Manuskripte (Programme) zur 
Darstellung im Heft heranzuziehen und abzudrucken. 

Einzusenden sind: 

- Programmbeschreibung und Programmflußplan 

— bespielte Cassette oder Diskette 

- Listing 

mit Copyright. 

— Freiumschlag 

Haben Sie Interesse? Haben Sie noch Fragen? 

Setzen Sie sich telefonisch mit unserer Redaktion, 

Frl. Herwig oder Herrn Beck, 
in Verbindung! , 

TRONIC-VERLAG 

DIE REDAKTION 



< 



Heft 6 von Computronic ist: 



Ab 



tt. *■' 



be" Ih^jidr 



+&S\ 




Natürlich bringen wir dann wieder 
jede Menge Programme! 

Programme! 
Programme! 






•"•US""*. ««? 



und: 



Neues, Infos, Tips + Tricks! 




Es verabschiedet sich: Die Computronic-Redaktion 



1 Impressum: Computronic erscheint monatlich im Verlag: Tronic-Verlagsgesellschaft mbH, Landstraße 29, 3444 Wehretal 1, Tel.: (05651) 40643/40693. 
Redaktion: Rainer Beck (verantwortlich), H.A.Ederg. Freie Mitarbeiter: Frank Brall, G. Wagner. Satz und Reproduktion: Keitz& Fischer. Druck: 
Schimmel KG, Würzburg. Vertrieb: Inland (Groß-, Einzel- und Bahnhofsbuchhandel), sowie Osterreich und Schweiz: Verlagsunion, 6200 Wiesbaden. 
Anzeigen Verwaltung: E.Herwig. Anzeigenpreise: Es gilt die Anzeigenliste Nr. 1. Bitte Media-Unterlagen anfordern. Bezugspreise: Einzelheft (Inland) 
DM 5,50, Abonnement (Inland) DM 55,—, (Ausland) DM 75,—. Autoren und Manuskripte: Bei Zusendung von Manuskripten und Datenträger erteilt der 
Autor dem Verlag die Genehmigung zum Abdruck und Versand der veröffentlichten Programme auf Datenträger. Für die mit Namen des Verfassers gekenn- 
zeichneten Beiträge übernimmt die Redaktion lediglich die presserechtliche Verantwortung. Ale in dieser Zeitschrift veröffentlichten Beiträge sind urheber- 
rechtlich geschützt. Nachdruck (auch auszugsweise) und Vervielfältigung nur mit ausdrücklicher Genehmigung des Verlages. Für unaufgeforderte Einsendungen 
von Manuskripten, Tonträgern und Software wird keine Haftung übernommen. 



computromc 



Tronic-Verlag GmbH 



computromc 



Tips und Tricks für Einsteiger, Anfänger und Fortgeschrittene. Informationen und Daten. 
Sinnvolle Anwendungen und Anregungen. Lernen, anhand von Com p utronic , Programme 
einzugeben und Programme zu schreiben. Von Basic bis Maschinensprache. Neues vom 
Computermarkt über Hard- und Software. 



computromc 



Software- Listings^ 



Unser Schwerpunkt in den Ausgaben [70%]. Leichte und anspruchsvolle Programme 
werden im Heft abgedruckt, wobei die Redaktion alle bekannten Home-Computer 
berücksichtigen wird. Wenn man will, kann man die Programme einfach eingeben, damit 
spielen oder arbeiten. Alle Konzepte und Begriffe sowie alle Spiele werden vor ihrer 
Anwendung erklärt. 



computromc 



Software-Service 



Abgedruckte Programme können als zusätzlicher Service über den Verlag bezogen 
werden. Wer kein Interesse hat seinen Computer zu »füttern«, oder wem es zu lang-j 
weilig wird zu programmieren, kann alle abgedruckten interessanten Spiele auf Cas- 
sette und Diskette erwerben. 



|. Der Bezugspreis beträgt im Inlani 
DM 5,50. Im Preis ist die gesetzliche Mehrwertsteuer enthalten. j 

Tronic-Verlag GmbH • Postfach 41 ■ 3444WehretaM • 05651-40643/40693 



